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I .  PROLOGUE 


A.  PROGRAMMING  LANGUAGES 

1 .  Conventional  Prograinniing  Languages 

"Conventional  programming  languages  are  growing  ever 
more  enormous,  but  not  stronger.  Inherent  defects  at  the 
most  basic  level  cause  them  to  be  both  fat  and  weak:  their 
primitive  word-at-a-time  style  of  programming  inherited 
from  their  common  ancestor,  the  von  Neumann  computer,  their 
close  coupling  of  semantics  to  state  transitions,  their 
division  of  programming  into  a  world  of  expressions  and  a 
world  of  statements,  their  irability  to  effectively  use 
powerful  combining  forms  for  building  new  programs  from 
existing  ones,  and  their  lack  of  useful  mathematical  pro¬ 
perties  for  reasoning  about  programs."  iRef.  1] 

2 .  Software  Crisis  and  Ada 

It  is  virtually  a  cliche  to  say  there  is  a  software 
crisis.  This  crisis  in  software  production  is  far  greater 
than  the  situation  of  the  early  50 's  that  led  to  the  develop¬ 
ment  of  high  level  languages  to  relieve  the  burden  of  coding. 
The  symptoms  appear  in  the  form  of  software  that  is  nonre- 
sponsive  to  user  needs,  unreliable,  excessively  expensive, 
untimely,  inflexible,  difficult  to  maintain,  and  not  reusable. 
There  are  many  ways  to  improve  things  a  little  and  they  are 
being  tried.  But  to  achieve  a  fundamental  jump  in  our  pro¬ 
gramming  capacity,  we  need  to  rethink  what  we  are  doing  from 
the  beginning. 

A  programming  language  shapes  the  way  we  think  about 
the  solutions  to  our  problems.  Ideally,  we  desire  a  language 
that  leads  us  to  systems  that  map  directly  to  the  problem 
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space  and  that  helps  us  control  the  complexity  of  programming 
solutions.  Is  Ada  such  a  language  or  is  it  born  dead?  It 
is  time  to  listen  to  Hoare. 

"I  have  been  giving  the  best  of  my  advice  to  this  pro¬ 
ject  since  1975.  At  first  I  was  extremely  hopeful.  The 
original  objectives  of  the  language  included  reliability, 
readability  of  programs,  formality  of  language  definition, 
and  even  simplicity.  Gradually  these  objectives  have  been 
sacrificed  in  favor  of  power,  supposedly  achieved  by  a 
plethora  of  features  and  notational  conventions ,  many  of 
them,  like  exception  handling,  even  dangerous.  We  relive 
the  history  of  the  design  of  the  motor  car.  Gadgets  and 
glitter  prevail  over  fundamental  concerns  of  safety  and 
economy . 

And  so,  the  best  of  my  advice  to  the  originators  and 
designers  of  Ada  has  been  ignored.  I  appeal  to  you,  repre¬ 
sentatives  of  the  programming  profession  in  the  United 
States,  and  citizens  concerned  with  the  welfare  and  safety 
of  your  own  country  and  of  mankind:  Do  not  allow  this 
language  in  its  present  state  to  be  used  in  applications 
where  reliability  is  critical,  i.e.,  nuclear  power  stations, 
cruise  missiles,  early  warning  systems,  anti-ballistic 
missile  defense  systems.  The  next  rocket  to  go  astray  as 
result  of  a  programming  language  error  may  not  be  an  ex¬ 
ploratory  space  rocket  on  a  harmless  trip  to  Venus :  It 
may  be  a  nuclear  warhead  exploding  over  one  of  our  own 
cities.”  [Ref.  2] 


B.  TOWARDS  A  SOLUTION;  FUNCTIONAL  PROGRAMMING 

Just  as  high  level  languages  enabled  the  programmer  to 
escape  from  the  intricacies  of  a  machine's  order  code,  higher 
level  programming  systems  can  provide  help  in  understanding 
and  manipulating  complex  systems  and  components.  We  need  to 
shift  our  attention  away  from  the  detailed  specification  of 
algorithms,  towards  the  description  of  the  properties  of  the 
packages  and  objects  with  which  we  build.  A  new  generation 
of  programming  tools  will  be  based  on  the  attitude  that  what 
we  say  in  a  programming  system  should  be  primarily  declarative. 


8 


not  imperative.  The  fundamental  use  of  a  programming  system 
is  not  in  creating  sequences  of  instructions  for  accomplish¬ 
ing  tasks,  but  in  expressing  and  manipulating  descriptions 
of  computational  processes  and  the  objects  on  which  they  are 
carried  out. 

An  alternative  functional  style  of  programming  is  founded 
on  the  use  of  combining  forms  for  creating  programs .  Func¬ 
tional  programs  deal  with  structured  data,  are  often  non- 
repetitive  and  nonrecursive,  are  hierarchically  constructed, 
do  not  name  their  arguments,  and  do  not  require  the  complex 
machinery  of  procedure  declarations  to  become  generally  applic¬ 
able.  Combining  forms  can  use  high  level  programs  to  build 
still  high  level  ones  in  a  style  not  possible  in  conventional 
languages.  [Ref.  1] 

"This  style  of  programming,  also  known  as  applicative 
programming  and  value-oriented  programming,  is  important 
for  a  number  of  reasons.  First,  functional  programming 
dispenses  with  the  ubiquitous  assignment  operation.  As 
structured  programming  is  often  called  'goto-less  programm¬ 
ing.',  so  functional  programming  can  be  called  'assignment¬ 
less  programming.' 

The  second  reason  that  functional  programming  is  im¬ 
portant  is  that  it  encourages  one  to  think  at  higher  levels 
of  abstraction.  This  is  because  functional  programming 
provides  a  mechanism  (functionals)  for  modifying  the  be¬ 
havior  of  existing  programs  and  for  combining  existing 
programs . 

The  third  reason  for  the  functional  programming  is 
thcit  it  provides  a  paradigm  for  programming  large,  parallel 
computers .  As  we  begin  to  reach  speed  of  light  and  other 
limitations  on  computer  speed,  we  can  expect  to  see  com¬ 
puters  that  achieve  higher  speed  by  greater  parallelism. 
Functional  programming's  absence  of  assignments,  independ¬ 
ence  of  evaluation  order,  and  ability  to  operate  on  entire 
data  structures  provide  paradigms  for  programming  these 
machines . 
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The  fourth  reason  is  its  applications  in  'Artificial 
Intelligence'  CAI) .  Currently  most  AI  programming  is  done 
in  LISP,  a  language  which  inspired  much  of  the  early  work 
in  functional  programming.  PROLOG  is  the  newest  AI  pro¬ 
gramming  language  and  has  a  central  role  in  the  Japanese 
Fifth  Generation  [FG]  Computer  Project,  PROLOG  is  a  func¬ 
tional  programming  language  [See  Figure  1.1  for  a  sample 
Prolog  Program] .  Further,  since  AI  techniques  are  finding 
wider  and  wider  applications,  functional  programming  is 
important  to  more  than  just  AI  programmers;  it  is  impor¬ 
tant  to  all  programmers. 

The  fifth  reason  that  functional  programming  is  impor¬ 
tant  is  that  it  is  valuable  for  developing  executable 
specifications  and  prototype  implementations.  The  simple 
underlying  semantics  and  rigorous  mathematical  foundations 
of  functional  programming  along  with  its  high  expressive 
ability  make  functional  programming  an  ideal  vehicle  for 
specifying  the  intended  behavior  of  programs.  Functional 
programming  can  serve  this  function  even  if  no  functional 
programming  language  system  is  available  to  execute  the 
program.  However,  if  such  a  system  is  available  then  we 
have  something  very  valuable:  an  executable  specification. 
This  can  be  used  as  a  prototype  implementation  to  deter¬ 
mine  if  the  specifications  are  correct,  and  as  a  benchmark 
against  which  later  implementations  can  be  compared.  Thus, 
even  if  the  reader  never  intends  to  write  do  functional 
programming,  it  can  still  be  a  valuable  tool  for  the  for¬ 
mulation,  expression  and  evaluation  of  program  specifications. 

Finally,  functional  programming  is  important  because  of 
its  connections  to  computer  science  theory.  Functional 
programming  provides  a  simpler  framework  for  viewing  many 
of  the  decidability  questions  of  programming  and  computers 
than  do  the  usual  approaches."  [Ref.  3] 


C.  THE  FIFTH  GENERATION  COMPUTER  PROJECT 

In  April  1982,  Japan  launched  a  research  project  to 
develop  computer  systems  for  the  1990 's.  The  project,  called 
the  Fifth  Generation  computers  project,  will  span  10  years. 
Its  ultimate  goal  is  to  develop  integrated  systems,  both 
hardware  and  software,  suitable  for  the  major  computer  appli¬ 
cation  in  the  next  decade,  identified  by  the  Japanese  as 


10 


produce  (X, I, Z,a)  prodl  (X,Y,2,D,[  ])  . 

prodi  (Clist ,  STM,  Hslt ,[  Hname  JPlan  ],  Hist) 

:-reccgnize  (Clist,  STH,E name, Action) 
control  test  (r  Enamel  Hist  ])  , 


act  (Action, STf!,NewSTM)  , 

proa  1  (disc.  New  STB ,  Rslt ,  Plan,  r  Rname|  Hist  ]) 
It,  E£lt,[  ],  Hist)  . 


prod  1  (Clist ,  Rs 

recognize  (Clist  ,STt1, Rname,  Action) 

:-prod  rule  (Class, Rname 
member (Class, Clist) , 
hold  (Cond,STfl)  . 


Cond  =>  Action) , 


hold 

hold 


holdeach  {C,STH)  ,!  ,hold  (CL, STM) 


holdeach (absent (X 
holdeach  (absent  (X 


holdeach 

holdeach 

holdeach 

holdeach 

holdeach 


act |STH 


ioldeach (absent (X) ,STM) 


not  (X  =  Fact)^^li< 

X  =  y  STM)  X  =  I. 

found'(X)  ,STM1  holdeach  (X, STM)  . 
X,[  1)  cali(X)  . 

X,tXlSTM"). 

X,txl3TH]J  holdeach  (X, STM) 


ac 

ac 


t(r  *  STM,  STM), 

t([  JlctlAL  ],STH,  New  STM) 

acteach  (Act.STM,  Int  STM),!, 
act(AL,Int  STM, New  STM). 


acteach 

acteach 

acteach 


delete 

delete 


delete  (X)  ,[X  T  ],Y)  . 
deleteix)  ,[  Y  1  L  j,  T  Y 1 1 11) 

acteacntdelete(X),L,Ll) 

Lteiyn 


acteach  (insert  (X)  ,1 
acteach I  replace (x , Y 
acteach  replaceiX,Y 
acteach  (replace  (X,Y,  , 

acteac 

acteach  (Else  , STM,  STM) 


call  (Else) 


,1,L1) 


Figure  1,1  A  Simple  PRODDCTION  SYSTEM  written  in  PRCLOG 
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successful,  Prolog  then  recursively  executes  the  goals  Cif 
any)  in  the  right-hand  side  of  the  clause,  which  will  by  now 
have  been  modified  by  the  results  of  the  matching.  When  no 
match  can  be  found,  or  when  there  are  no  more  goals  left  to 
execute,  Prolog  backtracks.  That  is  it  goes  back  to  the  goal 
most  recently  matched,  undoes  the  effects  of  the  match,  and 
then  seeks  an  alternative  match. 

Clauses  are  tried  for  a  match  in  the  order  they  appear 
in  the  program.  Goals  in  the  right-hand  side  of  a  clause  are 
executed  in  the  order  they  appear  in  that  clause.  The  match¬ 
ing  process  is  actually  unification,  a  process  which  effect¬ 
ively  produces  the  least  possible  instantiation  of  variables 
necessary  to  make  the  two  goals  identical. 

Prolog's  backtracking  can  be  thought  of  as  a  generalized 
form  of  iteration.  Thus  the  two  clauses  for  'ancestor',  when 
used  to  satisfy  a  goal  such  as  ' ancestor (ben , X) ' ,  give  a  be¬ 
haviour  when  executed  by  the  Prolog  equivalent  to  the  follow¬ 
ing  procedure: 

To  generate  Zs  who  are  ancestors  of  X: 

first  generate  Zs  who  are  parents  of  X; 
then  for  each  Y  who  is  a  parent  of  X: 
generate  Zs  who  are  ancestors  of  Y. 

In  fact,  some  compilers  can  compile  such  clauses  into  code 
which  is  comparable  in  efficiency  with  iterative  loops  in  a 
more  conventional  language. 
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This  use  of  logic  clauses  to  define  a  database  gives  much 
greater  power  and  conciseness  than  is  available  in  most  con¬ 
ventional  relational  database  systems.  These  systems  do  not 
allow  an  equivalent  recursive  definition  of  the  'ancestor' 
relation,  for  example. 

In  fact,  the  logic  subset  we  have  been  looking  at  forms 
the  basis  of  a  general  purpose  programming  language,  Prolog. 

A  Prolog  system  is  essentially  a  machine  which  can  generate 
solutions  to  a  problem  by  enumerating  all  instances  of  some 
goal  which  are  valid  inferences  from  the  clauses  which  make 
up  a  "program".  For  example,  if  the  user  presents  the  query: 
answer (X)  ancestor (ben, X) . 

Prolog  responds  with  the  following  list  of  possible  values 
for  X,  representing  all  the  ancestors  of  Ben  that  can  be 
deduced : 

X  =  david;  X  =  jane;  X  =  hugh;  X  =  Winifred 
The  solutions  are  in  fact  produced  in  exactly  this  order. 

How  this  takes  place  will  not  be  described. 

In  Prolog,  the  ordering  of  clauses  in  a  program,  and  the 
ordering  of  goals  in  the  right-hand  side  of  a  clause,  provide 
important  control  information,  which  helps  to  determine  the 
way  a  program  is  executed. 

To  execute  a  goal  (such  as  ' ancestor (ben , X) '  in  the  pre¬ 
vious  query) ,  Prolog  tries  to  match  it  against  the  left-hand 
side  of  some  clause,  by  finding  values  for  variables  which 
make  the  clause  "head"  identical  with  the  goal.  When 


24 


parent tdavid,hugh) . 
parent (david, Winifred) . 
parent (ben, david) . 
parent Cben, jane) . 

The  first  clause,  for  instance,  may  be  read  as: 

"David  has  a  parent  Hugh". 

Here  we  have  defined  a  database  relation  by  explicitly  enu¬ 
merating  its  tuples.  However  it  is  also  possible  to  define 
a  relation  implicitly,  through  general  rules  expressed  as 
non-unit  clauses.  For  example,  here  is  the  definition  of  the 
'ancestor'  relation  in  terms  of  the  'parent'  relation: 
ancestor (X, Z)  :-  parent (X,Z). 
ancestor (X, Z)  :-  parent (X,Y) , ancestor (Y, Z) . 

Read  these  clauses  as: 

"X  has  an  ancestor  Z  if  X  has  a  parent  Z". 

"X  has  an  ancestor  Z  if 

X  has  a  parent  Y  and  Y  has  an  ancestor  Z". 

Note  that  the  second  clause  makes  the  definition  recursive. 
We  can  think  of  'ancestor'  as  a  "virtual"  relation.  A  pair 
<X,Y>  belongs  to  the  'ancestor'  relation  if: 
ancestor (X, Y) 

is  a  logical  consequence  of  the  clauses  which  make  up  the 
database.  Thus  one  can  infer,  for  example,  that  one  of  Ben's 
ancestors  is  Hugh,  i.e., 

ancestor (ben,hugh) 
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arguments .  This  aspect  tends  to  make  the  logic  form  of  the 
query  more  concise  and,  it  can  be  argued,  easier  to  compre¬ 
hend.  Note  the  use  of  to  denote  an  "anonymous"  variable, 

which  is  only  referred  to  once,  and  which  therefore  does  not 
need  to  be  given  a  distinct  name.  Quel  constraints  which  are 
inequalities  map  into  separate  logic  goals.  The  Quel  query 
as  a  whole  maps  into  a  restricted  kind  of  implication,  called 
a  clause,  where  the  target  of  the  query  appears  as  the  con¬ 
clusion  of  the  implication  (to  the  left  of  the  . 

Clauses  can  be  used  not  only  to  represent  queries,  but 
also  to  express  the  information  which  makes  up  the  database 
itself.  (It  is  this  aspect  which  distinguishes  what  will  be 
described  here  from  much  other  work  relating  logic  and 
databases) . 

In  general  a  clause  consists  of  an  implication,  which  in 
the  Prolog  subset  of  logic  is  restricted  to  the  form: 

P  : -  Ql ,  Q2 ,  ...  Qn. 

meaning  "P  is  true  if  Q1  and  Q2  and  ...  Qn  are  true",  where 
P  and  the  Qi  may  be  any  goals.  If  n  =  o,  we  have  what  is 
called  a  unit  clause,  which  is  written  simply  as: 

P. 

meaning  "P  is  true". 

For  example,  here  are  some  unit  clauses,  representing 
elementary  facts,  which  serve  to  define  which  tuples  make  up 
relation  'parent'. 
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Read  this  as : 


E  is  an  answer  if 

E  is  an  employee,  dept  D,  salary  S,  manager  M,  age  A, 

and 

A  is  greater  than  40  and 
D  is  a  department  on  floor  1  and 
M  is  an  employee,  salary  SI,  and 
S  is  greater  than  Si. 

Here  the  identifiers  starting  with  a  capital  letter,  such 
as  E,  D,  S,  etc.,  are  logic  variables,  which  can  be  thought 
of  as  standing  for  arbitrary  objects  of  the  domain.  Contrast 
this  with  the  variables  of  Quel,  which  denote  arbitrary  tu¬ 
ples  of  a  certain  relation  specified  in  a  range  statement. 
(Because,  in  this  example,  tuples  can  be  uniquely  identified 
by  their  first  fields,  it  is  natural  for  the  logic  variable 
corresponding  to  this  field  to  have  the  same  name  identifier 
as  is  used  for  the  tuple  variable  in  the  Quel  version) .  For 
each  tuple  variable  in  a  Quel  query,  there  is,  in  the  logic 
version,  a  corresponding  goal  (also  called  "atomic  formula") , 
e.g.  , 

dept (D, 1) 

A  goal  consists  of  a  predicate,  naming  the  range  relation  of 
the  corresponding  tuple  variable,  applied  to  some  arguments, 
corresponding  to  the  fields  of  this  relation.  Quel  con¬ 
straints  which  are  identities  map  into  an  appropriate  choice 
of  variables  or  constants  (such  as  '!')  for  certain  goal 


Several  current  relational  database  formalisms  have  a 
core  which  can  be  viewed  as  no  more  than  a  syntactic  variant 
of  a  certain  subset  of  logic.  To  illustrate  this,  let  us 
consider  an  example  written  in  Quel. 

range  of  E,M  is  employee 
range  of  D  is  dept 
retrieve  (E.name) 
where  E. salary  >  M. salary 
and  E. manager  =  M.name 
and  E.dept  =  D.dept 
and  D. floor  =  1 
and  E.age  >  40 

In  ordinary  English,  this  query  means;  "Which  employees 
aged  over  40  on  the  first  floor  earn  more  than  their  manag¬ 
ers?"  This  query  refers  to  relations; 

employee (name , dept , salary , manager , age) 
dept (dept, floor) 

This  query  can  be  expressed  in  logic  (using  Prolog  oriented 
syntax)  as; 

answer(E)  ;-  employee (E, D, S ,M, A) , 

A  >  40, 
dept (D, 1) , 

employee (M,_, Si, _,_)  , 

S  >  SI. 
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II.  EXPRESSION  OF  RELATIONAL  DATABASE  QUERIES  IN  LOGIC 

A,  RELATIONAL  DATABASES 

Development  of  data  base  systems  was  one  of  the  core  ele¬ 
ments  during  the  progress  in  the  70 's  of  computer  technology. 
How  to  organize  and  how  to  utilize  gigantic  volumes  of  data 
were  the  questions.  The  progress  was  made  by  accumulating 
experience.  Along  with  it,  efforts  to  organize  such  exper¬ 
ience  theoretically  also  went  on. 

Codd's  proposal  for  relational  databases  was  made  early 
in  the  70 's,  but  is  only  now  about  to  become  a  major  stream 
in  structuring  data  bases .  This  is  based  on  a  theory  of 
"relations".  As  query  languages  for  the  data  bases  predicate 
formulas  (relational  calculus)  and  functional  formulas  (re¬ 
lational  algebra)  are  proposed.  These  are  mutually  inter¬ 
changeable.  They  can  be  regarded  as  certain  kinds  of  special 
logics,  and  through  the  70 's  a  great  deal  of  theoretical  re¬ 
search  effort  was  made  in  this  area. 

B.  QUERIES  AND  LOGIC 

Relational  database  retrieval  is  viewed  as  a  special  case 
of  deduction  in  logic.  It  is  argued  that  expressing  a  query 
in  logic  clarifies  the  problems  involved  in  processing  it 
efficiently  (query  optimization) .  We  want  to  describe  a  sim¬ 
ple  way  for  defining  a  query  so  that  it  can  be  executed  by 
the  elementary  deductive  mechanism  provided  in  the  programm¬ 
ing  language  PROLOG. 
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Abstract  data  types  with  good  efficiency.  A  compiler  is 
able  to  transform  the  Micro  database  introduced  in  (1)  into 
very  efficient  object  codes  under  a  certain  restriction. 

For  example,  it  transforms  a  clause  in  Micro  database  into 
such  codes  as  fetch  and  store  terms  directly  in  a  predicate 
which  represents  its  internal  states . 

Refined  system  data  structures.  Data  structures  which 
represent  the  internal  state  of  the  system  are  refined. 

Basic  predicates  which  access  and  manipulate  them  and 
basic  protection  mechanism  are  both  provided. 

Constructs  for  parallel  processing.  Necessary  parallel 
processing  constructs  for  programs  controlling  external 
devices  are  introduced  as  simply  as  possible. 

Compared  with  an  ordinary  system  description  language, 

PROLOG  has  far  higher  level  functions,  therefore,  it  is 
apt  to  be  thought  that  it  is  not  appropriate  for  system 
description.  But,  under  natural  restrictions  and  degen¬ 
eration  of  functions,  it  is  able  to  guarantee  the  same 
efficiency  as  an  ordinary  system  description  language 
does.  Examples  of  these  restrictions  are:  There  is  no 
non-deterministic  selection.  Unification  is  restricted. 

A  term  is  a  variable  or  a  constant.  Furthermore,  it  is 
restricted  to  the  parameter  binding  of  an  ordinary  func¬ 
tional  language. 

6 .  The  Others 

Besides  the  above,  the  following  functions  have  to  be 
researched.  They  are:  Large  scale  databases,  connection  with 
external  databases  (relational  databases) ,  other  search  modes 
different  from  top-down  and  depth-first  search,  and  the  im¬ 
provement  of  backtracking  search  mechanism. 


statement.  For  example,  the  introduction  of  a  selection  mode 
for  clauses  is  possible. 


3 .  Enough  Preparation  of  Programming  Tools 
Evaluation  with  backtracking  makes  debugging  very 

difficult.  This  means  it  is  necessary  to  prepare  more  power¬ 
ful  tools.  These  include:  (1)  Debugger,  which  traps  evalua¬ 
tion  by  error  or  break,  keeps  the  environment  as  it  is  and 
responds  to  various  users'  commands,  (2)  Tracer,  which  traces 
the  history  of  evaluation  of  specified  predicates  and  varia¬ 
bles  and  displays  it  in  pretty  format,  (3)  Stepper,  which 
evaluates  program  steps  one  by  one  and  displays  various  states 
by  the  minute,  (4)  Editor,  which  edits  clauses  with  pattern 
matching,  etc.  These  tools  are  combined  into  one  total  pro¬ 
gramming  system  in  order  to  be  invoked  at  any  place. 

4 .  High  Level  Data  Structure 

It  is  pointed  out  that  data  structures  such  as  sets 
and  bags  which  collect  elements  to  satisfy  certain  conditions, 
represented  by  predicates,  are  improtant.  For  this,  the  most 
primitive  higher-order  predicate  is  provided  to  PROLOG  as 
well . 

5 .  Useful  Functions  for  System  Description 
Interpreters,  compilers,  file  systems,  tools  for  de¬ 
bugging,  etc,,  a  lot  of  system  programs  have  to  be  developed. 
The  Kernel  part  of  them  can  be  implemented  by  micro  programs . 
The  rest  are  desirable  to  be  implemented  by  PROLOG  itself. 

For  this  purpose,  it  is  possible  to  introduce  efficient  sys¬ 
tem  description  functions  into  it.  For  example,  they  are: 


Refined  Higher-order  Extensions 


PROLOG  is  a  simple  and  powerful  language  based  on 
first-order  logic.  For  practical  use,  however,  various  high¬ 
er-order  extensions  have  to  be  introduced.  What  is  essential 
is  still  open  to  discussion.  For  example,  it  is  said  that 
higher-order  extensions  like  lambda  expressions  and  predicate 
variables  are  not  very  essential  and  first-order  logic  has 
enough  ability.  In  Lisp,  for  example,  the  most  primitive 
mechanism  for  higher-order  programming  is  that  program  and 
data  have  the  same  structure,  and  that  quote  and  eval  func¬ 
tions  are  provided,  which  control  whether  some  data  structures 
are  regarded  as  program  or  data.  This  mechanism  is  introduced 
to  PROLOG  too  as  a  primitive  one.  The  basic  data  structure 
of  Lisp  is  the  list  (s-expression) .  To  PROLOG,  the  tuple  is 
regarded  as  a  basic  one.  Each  term,  predicate  and  Horn  clause 
is  able  to  be  internally  represented  as  a  tuple.  At  the  head 
of  each  tuple,  the  tuple  name  is  placed  and  the  attribute  of 
this  name  indicates  what  the  tuple  represents.  And  then,  for 
composition  and  decomposition  of  tuples,  unification  is  ex¬ 
tended  and  some  predicates  are  introduced. 

The  most  fundamental  construct  for  the  control  struc¬ 
ture  of  PROLOG  is  the  cut  operation.  This  operation  is  very 
powerful,  but  its  effect  is  very  hard  to  understand.  So,  it 
is  compared  to  the  goto  statement  in  a  conventional  language. 
It  is  possible  to  introduce  more  structured  constructs  for 
control  and  banish  the  cut  operation,  as  we  did  the  goto 


it  as  the  basic  function.  But  the  current  version  of  PROLOG 
doesn't  have  this  construct  explicitly.  So,  we  have  to  in¬ 
troduce  it  in  natural  way.  To  introduce  every  function  of 
the  abstract  data  type  and  to  make  clear  its  function  for 
program  specification  and  program  verification  remain  as  a 
long  term  research  theme. 

It  is  desired  that  this  extension  is  made  by  natural 
enlargement  of  functions  which  PROLOG  has  now.  PROLOG  has 
one  internal  database.  In  this  database,  all  clauses  (unit 
and  non-unit)  are  stored.  There  are  predicates  which  assert 
and  retract  these  clauses,  and  the  way  to  cause  side-effects 
is  to  alter  the  contents  of  the  database  with  these  predi¬ 
cates.  This  situation  can  be  interpreted  as  follows;  there 
is  only  one  abstract  data  type  called  internal  database. 
Consequently,  to  make  it  possible  to  define  a  number  of  ab¬ 
stract  data  types  is  to  make  it  possible  to  create  a  number 
of  databases,  which  can  be  called  Micro  databases.  Various 
advantages  are  obtained  by  the  introduction  of  Micro  data¬ 
bases.  For  instance, 

(a)  Side-effects  are  localized. 

(b)  Structures  are  introduced  into  programs.  If  a  nested 
structure  is  permitted  among  databases,  more  compli¬ 
cated  program  structures  can  be  represented. 

(c)  Separate  compilation  becomes  available.  Clauses  which 
are  not  exported,  are  never  accessed  from  the  outside. 
So,  it  is  possible  to  compile  calling  sequences 
(unification)  to  these  clauses. 


present,  it  is  possible  to  extend  PROLOG  efficiently  to  in¬ 
clude  useful  functions  of  Lisp  as  a  subset.  PROLOG  can  put 
a  search  mechanism  with  backtracking  control  into  practical 
use  by  using  logical  formulas  (Horn  clauses)  as  language  con¬ 
structs  and  by  improving  implementation  techniques . 

It  introduces  new  computer  architectures.  FG-Kernel 
Language  will  be  first  implemented  on  an  conventional  large 
scale  computer  and  then  on  a  high  performance  personal  com¬ 
puter.  According  to  the  research  plan  of  the  Fifth  Generation 
Computers,  the  language  will  be  improved  and  extended  step  by 
step,  based  on  actual  experience  and  various  research  results. 
And  finally,  the  language  will  become  a  machine  language  for 
the  target  machine  of  this  project.  Consequently,  the  lan¬ 
guage  (Edinburgh  version)  must  be  such  a  language  as  funda¬ 
mentally  has  all  of  the  appropriate  mechanisms  for  data  flow 
machines  and  data  base  machine  architectures  supposed  as 
basic  architectures  of  the  target  machine.  PROLOG  has  a 
great  possibility  for  this,  too. 

For  the  above  reasons,  PROLOG  has  been  chosen  as  the  ker¬ 
nel  of  Kernel  Language.  Next,  the  main  features  of  improve¬ 
ment  and  extension  of  PROLOG  now  under  study  are  enumerated. 

We  give  priority  to  the  arrangment  of  all  primitive  and  nec¬ 
essary  functions  over  invention  of  high  level  ones. 

1 .  Abstract  Data  Types  (Encapsulation) 

The  usefulness  of  abstract  data  types  has  been  well 
known  and  recently  most  new  programming  languages  have  adopted 
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representation) ,  software  engineering,  examination  of  various 
programming  language  proposed,  etc.  The  reasons  why  a  logic 
programming  language  (PROLOG)  is  chosen  as  the  kernel  of  FG- 
Kernel  language  are  summarized  below. 

It  is  appropriate  for  programming  of  knowledge  informa¬ 
tion  processing  system.  List  processing,  database  mechanism 
similar  to  relational  database,  pattern  matching  (unification) 
which  clearly  represents  the  composition  and  decomposition  of 
data  structure  and  database  research,  non-deterministic  pro¬ 
cessing,  etc.  are  indispensable  processing  functions  in  pro¬ 
gramming  of  knowledge  information  processing  systems.  PROLOG 
has  all  basic  parts  of  these  functions,  and  moreover,  is  able 
to  be  extended  to  get  more  high  performance  functions . 

It  gives  new  paradigms  of  programming.  A  non-procedural 
representation  scheme,  high  modularity,  a  happy  blending  of 
computation  and  database  search  etc.  are  new  programming 
paradigms.  These  paradigms,  what  is  better  still,  make  it 
much  easier  to  deal  with  programs  and  programming  as  formal 
objects  and  give  great  possibilities  to  realize  a  program 
verifier  and  an  automatic  programming  system. 

It  succeeds  to  the  results  of  efforts  made  by  current 
programming  languages.  Much  has  been  discussed  about  the 
relationship  between  logic  programming  languages  and  func¬ 
tional  languages,  and  it  has  become  generally  appreciated 
that  these  languages  will  play  the  leading  part  in  future 
programming.  To  be  concrete,  also  as  to  Lisp,  the  function¬ 
al  language  that  is  most  widely  put  into  practical  use  at 


"knowledge  information  processing.”  Even  though,  it  may  ul¬ 
timately  have  applicable  results,  the  current  focus  of  the 
project  is  basic  research  rather  than  the  development  of 
commercial  products.  [Ref.  4] 

In  addition  to  bringing  Japan  into  a  leading  position  in 
the  computer  industry,  the  project  is  expected  to  elevate 
Japan's  prestige  in  the  world.  It  will  refute  accusations 
that  Japan  is  only  exploiting  knowledge  imported  from  abroad 
without  contributing  any  of  its  own  to  benefit  the  rest  of 
the  world.  Hence,  the  project  aims  at  original  research  and 
plans  to  make  its  results  available  to  the  international  re¬ 
search  community.  [Ref.  5] 

The  most  intriguing  aspect  of  the  project  is  its  commit¬ 
ment  to  build  the  Fifth  Generation  systems  around  the  con¬ 
cepts  of  logic  programming.  In  the  following  paragraphs  we 
trace  the  roots  and  rationale  for  this  commitment. 

There  are  many  attributes  that  prescribe  a  computer  sys¬ 
tem;  however,  the  most  important  one  is  what  language  we  ac¬ 
cept  as  the  main  programming  language.  For  application 
areas,  the  basic  structure  of  software  systems  and  the  frame 
of  computer  architecture  are  all  determined  by  this  language. 
So  in  this  project,  this  main  programming  language,  FG-Kernel 
Language,  seems  to  be  the  most  important  research  theme.  The 
research  and  development  of  this  language  must  be  carefully 
pursued  on  the  basis  of  systematic  studies  on  various  aspects 
such  as  artificial  intelligence  (problem  solving  and  knowledge 


As  a  final  remark,  one  should  note  that  the  Prolog  subset 
of  logic  includes,  besides  the  variables  and  elementary  con¬ 
stants  seen  so  far,  objects  which  are  structures.  In  this 
respect,  while  being  similar  to  many  other  programming  lan¬ 
guages,  it  is  a  further  important  generalization  of  most  re¬ 
lational  database  formalisms. 

In  fact,  Prolog  was  not  designed  with  relational  database 
retrieval  in  mind,  it  was  conceived  purely  as  a  programming 
language.  The  efficiency  of  processing  of  Prolog  queries 
may  be  discussed.  The  Prolog-based  approach  of  Chat-80  com¬ 
pares  with  the  strategies  used  in  conventional  relational 
database  systems.  iRef.  6] 


III.  TRANSLATION  OF  A  SUBSET  OF  PROLOG  INTO  PASCAL 

A.  PASCAL  AS  AN  IMPLEMENTOR  LANGUAGE 

Pascal  is  chosen  as  an  object  language  for  this  applica¬ 
tion,  because  it  does  have  some  excellent  features.  .[Ref.  7J 
Here  is  a  list  of  positive  aspects; 

1)  small  number  of  well-chosen  keywords, 

2)  small  number  of  syntax  and  semantics  rules, 

3)  meaning  of  Pascal  instructions  is  highly  independent 
of  environment,  which  promotes  portability  of  programs, 

4)  excellent  data  structuring  methods, 

5)  clean  and  efficient  control  structuring, 

6)  excellent  for  programming  "in  the  small", 

7)  gives  a  feeling  of  reliability, 

8)  with  some  care,  readability  can  be  kept  high. 

Pascal  is  definitely  very  useful  in  the  following  areas: 

1)  compiler  writing,  cross  assemblers  and  compilers, 

2)  text  processing, 

3)  general,  off-line  utility  programs  (editors,  etc.), 

4)  treatment  of  non-numerical  data, 

5)  processing  of  trees,  lists  and  other  complex  data 
structures , 

6)  some  mathematical  problems, 

7)  construction  of  portable  programs. 


We  do  not  want  to  deal  with  the  existing  problems  in  that 
language.  This  is  beyond  the  scope  of  this  thesis. 


B.  PROLOG  AND  BACKTRACKING 

Prolog  is  a  simple  but  powerful  programming  language 
founded  on  symbolic  logic.  The  basic  computational  mechanism 
is  a  pattern  matching  process  ("unification")  operating  on 
general  record  structures  ("terms"  of  logic) .  It  can  be  ar¬ 
gued  that  pattern  matching  is  a  better  method  for  expressing 
operations  on  structured  data  than  conventional  selectors  and 
constructors — both  for  the  user  and  for  the  implementor. 

From  a  user's  view  the  major  attraction  of  the  language  is 
ease  of  programming.  Clear,  readable,  concise  programs  can 
be  written  quickly  with  a  few  errors . 

Prolog  has  many  parallels  with  Lisp.  Both  are  interac¬ 
tive  languages  designed  primarily  for  symbolic  data  process¬ 
ing.  Both  are  founded  on  formal  mathematical  systems — Lisp 
on  Church's  lambda  calculus,  prolog  on  a  subset  of  classical 
logic.  Like  pure  Lisp,  the  Prolog  language  does  not  (ex¬ 
plicitly)  incorporate  the  machine-oriented  concepts  of  assign 
ment  and  references  (pointers) .  Furthermore,  pure  Lisp  can 
be  viewed  as  a  specialization  of  Prolog,  where  procedures 
are  restricted  to  simple  functions  and  data  structures  are 
restricted  to  lists. 

Prolog  differs  from  most  programming  languages  in  that 
there  are  two  quite  distinct  ways  to  understand  its  semantics 
The  procedural  semantics  is  the  more  conventional,  and  de¬ 
scribes  in  the  usual  way  the  sequence  of  states  passed 
through  when  executing  a  program.  In  addition  a  Prolog 


program  can  be  understood  as  a  set  of  descriptive  statements 
about  a  problem. 

The  declarative  semantics  which  Prolog  inherits  from 
logic  provides  a  formal  basis  for  such  a  reading.  It  simply 
defines  (recursively)  the  set  of  terms  that  are  asserted  to 
be  true  according  to  a  program.  A  term  is  true  if  it  is 
head  of  some  clause  instance  and  each  of  the  goals  (if  any) 
of  that  clause  instance  is  true,  where  an  instance  of  a 
clause  (or  term)  is  obtained  by  substituting,  for  each  of 
zero  or  more  variables,  a  new  term  for  all  occurrences  of  the 
variable . 

The  procedural  semantics  describes  the  way  a  goal  is 
executed.  The  object  of  the  execution  is  to  produce  true  in¬ 
stances  of  the  goal .  It  is  important  to  notice  that  the  or¬ 
dering  of  clauses  in  a  program,  and  goals  in  a  clause,  which 
are  irrelevant  as  far  as  the  declarative  semantics  is  con¬ 
cerned,  constitute  crucial  control  information  for  the  pro¬ 
cedural  semantics . 

To  execute  a  goal,  the  system  searches  for  the  first 
clause  whose  head  matches  or  unifies  with  the  goal.  The  uni¬ 
fication  process  finds  the  most  general  common  instance  of 
two  terms,  which  is  unique  if  it  exists.  If  a  match  is  found, 
the  matching  clause  instance  is  then  activated  by  executing 
in  turn,  from  left  to  right,  each  of  the  goals  of  its  body 
(if  any) .  If  at  any  time  the  system  fails  to  find  a  match 
for  a  goal,  it  backtracks,  i.e.,  it  rejects  the  most  recently 


activated  clause,  undoing  any  substitutions  made  by  the  match 
with  the  head  of  the  clause.  Next  it  reconsiders  the  origin¬ 
al  goal  which  activated  the  rejected  clause,  and  tries  to 
find  a  subsequent  clause  which  also  matches  the  goal. 

Prolog  owes  it  simplicity  firstly  to  a  generalization  of 
certain  aspects  of  other  programming  languages,  and  secondly 
to  omission  of  many  other  features  which  are  no  longer  strict 
ly  essential.  This  generalization  gives  Prolog  a  number  of 
novel  properties.  We  shall  briefly  svimmarize  them. 

1)  General  records  structures  take  the  place  of  Lisp's 
S-expressions .  An  unlimited  number  of  different 
record  types  may  be  used.  Records  with  any  number 
of  fields  are  possible,  giving  the  equivalent  of 
fixed  bound  arrays.  There  are  no  type  restrictions 
on  the  fields  of  a  record. 

2)  Pattern  matching  replaces  the  use  of  selector  and 
constructor  functions  for  operating  on  structured 
data . 

3)  Procedures  may  have  multiple  outputs  as  well  as 
multiple  inputs. 

4)  The  input  and  output  arguments  of  a  procedure  do  not 
have  to  be  distinguished  in  advance,  but  may  vary 
from  one  call  to  another.  Procedures  can  be  multi¬ 
purpose  . 

5)  Procedures  may  generate,  through  backtracking,  a 
sequence  of  alternative  results.  This  amounts  to 
a  high  level  of  iteration. 

6)  Unification  includes  certain  features  which  are  not 
found  in  the  simpler  pattern  matching  provided  by 
some  languages.  One  can  sum  this  up  in  the  equation: 
Unification  =  pattern  matching  +  the  logical  variable. 

8)  The  characteristics  of  the  "logical"  variable  are  as 
follows.  An  "incomplete"  data  structure  (i.e.,  con¬ 
taining  free  variables)  may  be  returned  as  a  pro¬ 
cedure's  output.  The  free  variables  can  later  be 
filled  in  by  other  procedures,  giving  the  effect  of 
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implicit  assignments  to  a  data  structure.  Where  necessary 
free  variables  are  automatically  linked  together  by 
"invisible"  references.  As  a  result,  values  may  have 
to  be  "dereferenced".  This  is  also  performed  by  the 
system.  Thus  the  programmer  need  not  be  concerned  with 
the  exact  status  of  a  variable — assigned  or  unassigned, 
bound  to  a  reference  or  not.  In  particular,  the  oc¬ 
currences  of  a  variable  in  a  pattern  do  not  need  any 
prefixes  to  indicate  the  status  of  the  variable  at  that 
point  in  the  pattern  matching  process.  In  short,  the 
logical  variable  incorporates  much  of  the  power  of 
assignment  and  references  in  other  languages .  This  is 
reminiscent  of  the  way  most  uses  of  goto  can  be  ob¬ 
viated  in  a  language  with  well  structured  control 
primitives . 

9)  Program  and  data  are  identical  in  form.  Clauses  can 
usefully  be  employed  for  expressing  data. 

10)  There  is  a  natural  declarative  semantics  in  addition 
to  the  usual  procedural  semantics . 

11)  The  procedural  semantics  of  syntactically  correct  pro¬ 
gram  is  totally  defined.  It  is  impossible  for  an  error 
condition  to  arise  or  for  an  undefined  operation  to  be 
performed.  This  is  a  contrast  to  most  programming  lan¬ 
guages.  A  totally  defined  semantics  ensures  that  pro¬ 
gramming  errors  do  not  result  in  bizarre  program 
behaviour  or  incomprehensible  error  messages . 


C.  A  SUBSET  OF  PROLOG  (SPROLOG) 

For  the  purpose  of  this  work:  we  select  a  small  subset  of 
Prolog  and  we  will  call  it  Small  Prolog  (SPROLOG) .  This  sub¬ 
set  only  includes  some  primitive  data  structures,  such  as 
atoms  and  integer  numbers.  The  formal  definition  of  this  lan¬ 
guage  is  given  in  Figure  3.1. 

SPROLOG  also  has  some  restrictions.  These  are: 

1)  There  is  no  anonymous  (_)  variable.  This  restriction 
eliminates  the  possibility  of  violation  of  procedure 
naming  rule  in  Pascal, 

2)  Recursive  definition  is  not  allowed, 

3)  Only  nonnegative  integer  numbers  can  be  handled. 
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4)  Any  variable  or  atom  may  have  at  most  ten  characters, 

5)  Any  program  must  have  only  one  query  clause  which  is 
defined  as  the  last  rule  of  the  program, 

6)  Any  predicate  name  placed  in  the  body  clause  must 
have  been  declared  before  as  a  head  clause  of  a  rule. 
This  eliminates  taking  into  consideration  the  "for¬ 
ward"  declarations  inherited  in  Pascal, 

7)  Arithmetic  expressions  may  have  at  most  one  operator. 

These  restrictions  make  this  implementation  easy.  But, 

we  lose  the  beauty  of  the  problem. 


D.  DESIGN 

We  will  develop  our  work  by  using  the  following  example. 
Suppose  we  have  the  Prolog  program  illustrated  in  Figure  3.2 
Our  job  is  to  translate  it  to  a  Pascal  program.  We  consider 
that  all  head  clauses  of  Prolog  correspond  to  the  function 
declarations  in  Pascal.  That  is,  "pop",  "area",  "density", 
"ans"  and  "query"  are  all  ncimes  of  the  functions  which  will 
be  called  by  the  calls  that  are  placed  in  the  body  clauses 
anywhere  inside  the  program.  The  type  of  these  functions  is 
always  boolean.  If  the  body  clause  does  not  exist,  this 
means  that  this  function  will  not  call  any  other  functions. 


pop  (china, 8251  . 
pop (india, 5861  . 
area  (china, 3380}  . 
area (india.  1139)  . 

dens- - 

ans 


3ity  (C,D)  : -pop  (C,  P)  -  area  fC,  A)  ,  D  is  P/ 
(C1,D1,C2,D2)  :-density  (Cl,  D1)  .density 
Dl>D2,2d*DK21*D2. 


P/A. 

(C2,D2) 


guery:-ans (X,I,Z,T) 


Figure  3.2  Saaple  PROLOG  Program 


The  transfer  of  parameters  defined  in  the  Prolog  program 
will  cause  a  little  problem,  because  Prolog  does  not  force 
the  programmer  to  declare  them  with  the  same  number  and  the 
same  type.  For  example,  "density"  might  be  declared  with 
many  number  of  parameters  in  various  places  in  the  program. 
This  leads  us  to  use  pointer  variables  that  point  to  the  for¬ 
mal  and  actual  parameters  which  are  stored  in  the  storage 
area.  This  idea  facilitates  parameter  passing  among  functions 
without  using  variant  record  declarations  and  also  prevents 
the  probable  translation  errors  which  may  result  from  some 
features  of  Pascal,  such  as  "strong  typing"  or  "type 
checking" . 

We  need  also  to  inform  the  callee  about  the  caller's 
name  for  the  following  reasons.  As  shown  in  the  sample  pro¬ 
gram  in  Figure  3.2,  the  same  name  may  refer  to  several  call- 
ees  which  may  have  different  numbers  and  types  of  parameters. 
This  information  will  provide  a  basis  for  the  matching  and 
binding  processes.  So,  to  implement  this  idea,  we  will  enum¬ 
erate  the  names  of  functions  and  their  parameters  in  the 
following  simple  way. 

In  Prolog  source  code,  enumerate  all  names  from  top  to 
bottom  and  from  left  to  right.  In  the  same  way,  give  also  a 
sequence  number  to  all  parameters.  So,  in  the  above  example, 
"pop"  will  have  number  1  and  the  last  name  "ans"  will  be 
numbered  as  15.  Also,  the  actual  parameter  of  the  first  "pop" 
clause,  which  is  "china",  will  be  the  first  parameter  of  this 
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program  and  the  formal  parameter  T"  of  the  "ans"  will  get 
number  38.  Notice  that  "is",  ">"  and  ”<"  in  the  program  are 
not  user  defined  functions.  These  are  predefined  and  we  will 
use  them  from  the  library . 

We  already  have  some  problems.  There  exists  more  than 
one  alternative  clause  for  the  names  "pop"  and  "area".  It 
is  impossible  to  declare  two  functions  with  the  same  name  in 
Pascal.  To  solve  it,  we  rename  the  first  "pop”  as  "popl"  and 
the  second  one  as  "pop2".  Also,  we  need  to  define  another 
function  whose  name  is  "pop”  which  will  drive  all  the  alter¬ 
natives  according  to  a  logical  sequence.  This  process  will 
be  applied  to  all  functions  which  have  alternative  clauses. 

We  continue  our  example  in  the  following  tables. 

The  first  table  ("Procedure  Table")  includes  some  infor¬ 
mation  about  the  functions  (see  Figure  3.3).  The  leftmost 
column  is  the  function  number.  This  number  will  be  used 
during  the  execution  phase,  when  needed,  to  identify  any  func 
tion.  The  second  column  shows  the  name  of  tne  functions. 


function 

Name 

pop 

pop 

area 

area 

density 

pop 

area 

is 

ans 

density 

density 

< 

gaery 
ans  . 


parame  ter 
pointers 


11  12 
13  14 

15  18 

19  22 

23  24 

25  26 

27  28 

29  34 

0  0 
35  38 


alternative 

pointers 


0  0 
1  2 


Figure  3.3  Procedure  Table 


But,  ">"  or  "<"  can  not.be  legal  Pascal  function  names. 

Later,  we  can  change  them  to  "greater”,  "less than",  etc. 

The  third  and  fourth  columns  are  all  pointers .  They  point 
to  the  "Parameter  Table"  Csee  Figure  3.4)  for  the  associated 
parameters  of  that  function.  Because  the  function  "query" 
does  not  have  any  parameters,  its  parameter  pointers  do  not 
point  to  anything.  On  the  other  hand,  the  last  column  shows 
the  alternative  clauses  of  that  function.  For  example,  the 
functions  "pop"  and  "area"  have  two  non-zero  alternative 
pointers.  In  other  words,  this  means  that  these  functions 
have  two  alternatives. 

The  information  about  parameters  is  shown  in  the  Para¬ 
meter  Table  (see  Figure  3.4).  The  parameter  type  represents 
the  type  of  the  parameter.  Variables,  integers  and  atoms 
will  have  the  numbers  1,  2  and  3,  respectively.  However, 
other  numbers  which  are  greater  than  3,  indicate  the  exist¬ 
ence  of  arithmetic  expressions.  The  fourth  column  of  the 
table  points  to  the  associated  function  for  those  parameters . 

The  last  table  (see  Figure  3.5)  renames  the  alternative 
clauses.  If  we  have  several  functions  with  the  same  name, 
we  rename  then  and  then  we  will  be  able  to  use  them  with 
these  names.  In  fact,  these  three  tables  are  not  so  simple 
as  shown  in  the  figures.  The  reader  may  refer  to  the  sample 
programs  given  in  the  appendices . 
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s€g.  fusctioD  pointers  to 

No.  Name  proc  table 

1  popi  1  2 

2  pop2  3  4 

3  area3  5  6 

4  area4  7  8 

Figure  3.5  Alternative  Clauses  Table 

E.  MEMORY  MANAGEMENT  AND  PROBLEMS 

All  variables  and  constants  may  be  handled  by  using  the 
dynamic  storage  feature  of  Pascal.  It  seems  necessary  to 
describe  four  kinds  of  records  to  keep  a  parameter  in  a  heap 
area . 

The  first  record  ("Procedure  Record")  contains  enough 
information  about  the  rule  number,  function  number,  and  para¬ 
meter  number.  Also,  its  last  item  points  to  the  "Parameter 
Specification  Record".  This  record  keeps  the  parameter  type, 
parameter  name,  if  any,  and  it  also  has  a  cell  pointer  which 
indicates  the  related  Cell.  A  Cell  is  itself  a  pointer  which 
points  to  the  "Value  Record" .  This  record  saves  the  value  of 
that  parameter.  The  last  one  has  to  have  the  variant  record' 
specification  to  store  various  types  of  parameters.  If  a 
parameter  does  not  have  value,  namely  an  uninitialized  vari¬ 
able,  the  Cell  pointer  will  not  show  any  "Value  Record". 

To  handle  arithmetic  expressions,  che  Cell  pointer  will 
point  to  the  associated  binary  tree  for  that  expression.  The 


leaves  of  the  tree  are  also  pointers  that  point  to  the  re¬ 
lated  "Parameter  Specification  Record".  Also,  the  same  idea 
can  be  applied  to  the  list  data  structures,  because  it  is 
possible  to  represent  the  list  as  a  binary  tree. 

The  variables  that  are  local  to  a  rule  will  share  the 
same  storage  area  via  the  "Specification  Pointer"  defined  in 
its  "Procedure  Record".  This  is  also  true  for  all  the  con¬ 
stants  of  the  Program.  The  same  constants,  like  "china", 
will  be  stored  only  once.  The  associated  cell  pointers  will 
provide  the  way  for  the  common  storage. 

To  bind  a  value  to  a  variable,  the  Cell  pointer  of  this 
variable  will  point  to  a  "Value  Record"  which  is  determined 
at  the  time  of  matching  process.  This  process  will  create  a 
long  chain  during  the  execution  of  the  program.  Also,  the 
reverse  process  is  necessary  when  backtracking  and  resatis¬ 
fying  occurs.  At  this  point,  our  design  and,  finally,  this 
thesis  is  completely  unsuccessful.  Due  to  the  storage  manage¬ 
ment  and  the  complexity  of  execution  phase,  we  restrict  again 
SPROLOG  so  that  our  implementation  will  only  be  able  to  exe¬ 
cute  the  "facts"  and  one  rule  which  is  defined  at  the  end  of 
the  Prolog  program.  In  this  case,  this  implementation  will 
be  useful  to  define  and  implement  relational  databases  and 
query  applications.  (Our  implementation  allows  processing 
at  most  99  different  relations) . 

Now  we  are  ready  to  translate  the  sample  Prolog  program 
given  in  Figure  3.2  into  Pascal.  Function  "pop"  and  its  two 
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programs  as  output.  The  first  consideration  is  to  decide  how 
the  output  is  related  to  the  input.  It  is  natural  to  examine 
the  structure  of  the  source  language  and  to  devise  for  each 
element  of  the  language  a  rule  for  translating  it  into  tar¬ 
get  language  code.  These  rules  form  a  specification  of  the 
compiler's  function.  The  final  and  generally  more  laborious 
stage  of  compiler  construction  involves  implementing  proce¬ 
dures  which  efficiently  carry  out  the  translation  process  in 
accordance  with  the  specification. 

The  SPROLOG  implementation  uses  the  primitive  data  struc¬ 
tures,  such  as  integer  numbers,  atomic  constants  and  simple 
variables.  List  and  tree  types  of  data  structures  have  not 
been  considered.  In  the  design  phase  we  tried  to  give  some 
idea  for  these  structures.  This  requires  efficient  memory 
management  processing.  From  this  point,  this  thesis  should 
be  developed. 

Backtracking  should  be  considered  as  the  most  important 
fact  in  Prolog  implementations.  In  particular,  the  existence 
of  the  long  chain  of  variables  during  the  execution  phase, 
requires  much  more  efficient  compilation  techniques. 

We  must  sometimes  take  into  account  the  way  Prolog 
searches  the  database  and  what  state  of  instantiation  our 
goals  will  have  in  deciding  the  order  in  which  to  write  the 
clauses  of  a  Prolog  program.  The  problem  with  introducing 
cuts  is  that  we  have  to  be  even  more  certain  of  exactly  how 
the  rules  of  the  program  are  to  be  used.  For,  whereas  a  cut 
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V.  EPILOGUE 


In  this  impleinentation  we  tried  to  translate  a  small  sub¬ 
set  of  the  progranuaing  language  Prolog  into  Pascal.  We  dis¬ 
cussed  a  mapping  algorithm  and  we  pointed  out  some  difficulties 
In  the  literature  there  are  many  Prolog  implementations. 
Many  of  them  are  interpreters  (see  Figure  5.1) .  For  some  im¬ 
plementations  the  reader  may  refer  to  references  8  and  9 . 

Also,  for  the  memory  management  of  Prolog,  see  reference  10. 

! - T 


name 

authors 

implementation 

PEOICG 
(Edinturgh 
Dniv. ) 

E. M.  Pereira 

F. C.N.  Pereira 
E.H.D,  Harren 

L.  Byrd 

MACRO  (etc.) 

Dec  Tops-10 
-20 

PBOLCG 
(Marseille 
Univ. ) 

G.  Battani 

R.  Meloni 

FORTRAN 

FECLCG 

(IBM) 

J.F.  Sowa 

G.  Roberts 

VH/CHS 

EFOLCG/KE 

(Tokyo 

Oniv. ) 

B.  Nakashima 

1  UTILISE 

Figure  5. 1  Prolog  Systems 


So  let  us  reviev/  how  one;  might  set  about  constructing  a 
compiler.  Initially,  the  picture  is  just  a  black  box  with 
source  program^  as  input  and  correctly  translated  object 
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This  implementation  does  not  make  as  efficient  use  of 
time  and  space  as  any  commercial  Prolog  compiler  or  inter¬ 
preter.  The  translation  phase  and  compiling  object  code  are 
all  time  consuming  processes.  Object  code  could  be  any  as¬ 
sembly  object  code  rather  than  Pascal,  because  Pascal/VS  is 
also  a  slow  compiler.  On  the  other  hand,  it  is  apparent  that 
a  Prolog  compiler  spends  a  lot  of  its  time  backtracking. 
Backtracking  is  considered  an  unusual  and  expensive  event  in 
most  language  systems.  Since  in  Prolog  backtracking  is  the 
rule  rather  than  exception,  much  of  the  challenge  of  Prolog 
implementation  is  the  development  of  more  efficient  back¬ 
tracking  mechanisms.  [Ref.  7] 

It  seems  that  the  most  important  point  of  this  work  was 
not  to  write  an  efficient  compiler.  Rather  our  aim  was  to 
find  a  mapping  system  between  Prolog  and  Pascal.  But,  this 
process  also  should  be  developed. 
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As  the  last  step,  the  translator  translates  the  user 
source  Prolog  into  Pascal.  The  mapping  process  between 
source  and  object  program  is  given  in  Chapter  3.  The  assump¬ 
tions  and  restrictions  we  have  made  before,  make  Pascal's 
"forward"  declarations  unnecessary.  Also,  the  passing  of 
integer  pointers  as  parameters  between  the  procedures  pre¬ 
vents  exhaustive  variant  record  declarations.  The  probable 
recursive  declarations  made  by  the  user  in  the  source  programs 
are  detected  in  this  phase  by  using  the  stack.  Also,  it  is 
impossible  to  translate  undefined  procedures  into  Pascal. 

This  process  is  handled  by  using  the  stack  as  well. 

If  there  are  no  compiler  detected  errors,  the  Translator 
creates  a  Pascal  source  program  (see  Appendix  C)  which  is 
called  "USER  PASCAL".  During  the  creation  phase  the  system 
library  is  used  for  the  predefined  procedures.  After  the 
creation  of  Pascal  source  code,  the  Pascal/VS  compiler  is 
called  and  "USER  PASCAL"  is  compiled  and  executed.  This  is 
an  interactive  session.  If  the  programmer  is  not  content 
with  an  answer  to  his  question,  he  can  initiate  backtracking 
himself  by  typing  a  semicolon  when  Prolog  informs  him  of  a 
solution. 

C.  TEST,  EFFICIENCY  CONSIDERATIONS  AND  SELF-CRITICISM 

A  sample  program  that  has  been  compiled  and  translated 
into  Pascal  is  given  in  the  appendices.  All  these  applica¬ 
tions  may  be  considered  as  relational  database  applications. 

The  conjunction  of  many  subgoals  allows  the  user  to  define 
many  queries. 
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function  pcoc:bool€an: 

latel  a1; 

begin 

if  not (prefix)  then 
begin 

result:=t  (.tokenindez. ) .  name; 
i:  =  t  (. token index. ) . linenum; 
message 

{’error...  structure  expected, 
I  |str  (result)  ,i)  ; 
proc:=f alse; 
return; 

end ; 


if  point  then 
begin 

proc;  =  tru€ ; 
return; 

end ; 
reject; 

if  not  (iff)  then 
begin 

result;  =  t  (.tokenindez. ). name; 
i:=t (.tokenindez.) .linenum; 
message 

('error...  or  expected.. 

I  Istr  (result)  ,i)  ; 
proc;=f alse; 
return; 

end ; 


a1:  if  not ( structure)  then 
begin 

result:=t  (.tokenindez.)  .name; 
i:= t {. tokenindez. ). linenum; 
message 

('error...  structure  expected.. 
Mstr  (result)  ,i)  ; 
proc : =f alse; 
return; 

end ; 

if  point  then 
begin 

proc: =true; 
return; 

end ; 
reject ; 


if  comma  then 
goto  a1; 


end; 


proc :=f alse: 

result:  =  t  {.  tokenindez.)  .name ; 
i  :=t  (.tokenindez. )  .linenum ; 
message 

('error...  structure  expected.. 
I  Istr  (result)  ,i)  ; 

(♦  proc  ♦) 


t 


f 


I 


f 


Figure  '4.1 


Rain  Driver  for  Parsing  SPfiOLOG 


The  compiling  process  consists  of  three  phases.  These 

are ; 

1)  Lexical  Analyzing 

2)  Parsing 

3)  Translation 

Compilation  begins  with  a  source  Prolog  file  named 
"SOURCE  PROLOG"  which  is  created  as  a  CMS  file.  CSee  Appen¬ 
dix  C  for  a  sample  source  program) .  The  access  to  this  file 
is  sequential  by  the  compiler.  The  token  sequence  is  emitted 
by  the  lexical  analyzer.  If  there  is  no  rejected  token,  the 
parsing  phase  begins.  The  parser  considers  the  context  of 
each  token  and  classifies  groups  of  tokens  such  as  variables, 
atoms  or  integers  and  also  structures  (rules,  head  or  body 
clauses) .  For  our  purposes  we  introduce  the  main  driver  of 
the  parsing  process  (see  Figure  4.1)  for  the  SPROLOG  whose 
formal  definition  has  been  given  in  Chapter  3.  The  user  may 
examine  the  other  parts  of  the  Parser  by  referring  to  the  com¬ 
plete  program  which  is  given  in  Appendix  B. 

The  product  of  parser  and  lexical  analyzer  are  the  tables 
described  in  Chapter  3  and  also  given  in  Appendix  F,  G,  and 
H.  The  tables  have  two  main  jobs.  First  of  all,  the  trans¬ 
lator  will  use  them  for  translation  purposes.  In  fact,  they 
are  all  parameters  to  be  passed  from  user  source  program  to 
object  program.  This  makes  explicit  their  second  job. 

Namely,  the  executer  embedded  in  the  object  code  will  use 
them  during  the  execution. 


48 


IV.  IMPLEMENTATION  AND  TEST 


A.  SOME  FEATURES  OF  PASCAL/VS  AT  NPS 

Release  2.1  of  Pascal/VS  has  several  differences  from 
"standard”  Pascal.  Most  of  the  deviations  are  in  the  form 
of  extensions  to  Pascal  in  those  areas  where  Pascal  does  not 
have  suitable  facilities.  We  summarize  some  of  them  in 
Appendix  A  so  that  the  interested  user  may  understand  the 
application  programs  given  in  Appendix  B  without  having  any 
surprise . 

B .  IMP LEMENT AT I ON 

This  implementation  involves  mainly  two  distinct  phases . 
The  first  phase  is  the  compilation  process  (compiler  or 
translator)  and  the  second  one  is  the  executing  process 
(executor) .  The  Translator  accepts  source  Prolog  and  trans¬ 
lates  it  to  Pascal  source  (object  program)  by  including  the 
necessary  source  and  run-time  routines.  Then,  the  object 
program  is  compiled  and  executed  under  Pascal/VS  system. 

All  necessary  files  are  handled  automatically  without  re¬ 
quiring  any  user  intervention.  The  main  difference  from  a 
standard  Prolog  is  that  the  user  is  asked  to  place  his  query 
as  the  last  rule  of  the  program.  This  rule  must  begin  with 
the  keyword  "query" . 
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begin 

messagef*  EXECCTION  BEGINS. ,0)  ; 

resatisf y :=false; 

sign;=* ; ’ ; 

while  (sign=»;*)  do 

begin 

if  guery(gg,1)  then 
begin 

oessage{*  yes*,0)  ; 

feint ; 

ernin  (teem)  ; 
eeadln  (teem,  sign)  ; 
close  jteem)  ; 
eesatisfy :=(sign=* ; * ) ; 
if  eesatisfy  then 

message(»  BESATISFIING  GOAL, 
else  message (*  EXECUTION  ENDS., 
continue; 

end ; 

message  (stc  {*  no*)-0): 
messaged*  EXECUTION  ENDS.  .  . .  *  ,  0)  ; 
halt ; 

end; 

end.  (♦  main  ♦) 


■y.tV: 


Figure  3.12  Main  Program 


Then  the  global  variable  "resatisfy"  is  set  to  the  "true" . 
Otherwise  execution  ends.  If  "query"  does  have  "true"  value 
after  the  execution,  the  procedure  "print"  prints  the  values 
of  variables  which  are  declared  in  the  "query"  . 


function  ans fa, i; integer) iboolean; 
latel  10,11,12^13,14,99; 


begin 

if  resatisfj  then 


begin 

breakflS)  ; 
goto  13; 


end; 

10:if  {accept  (density,! 0, a) )  then  goto  11; 
goto  99: 


goto  ^ ; 

11:if  (accept  (density,  1 1, a 
if  not  (possible  (10) )  €h 
break  (JO); 


,11, a))  then 
•  ‘  en  goto 


JO  to  12; 


Vsi 

then  qoto  13; 


end; 


goto  10; 

12:j.f  (accept  (greater,  1 2, a) )  then  got 
if  not (possible (1lJ)  then  goto  99; 
break ( i i ) ; 
goto  11; 

13:if  (accept  (lessthan,  13,a) )  then  go 
if  not (possible (12) )  tnen  goto  99; 
break  ( 12)  ; 
goto  12; 

14: if  okay  (a)  then 
begin 

ans: =true; 
return ; 

end; 

99:ans:=false 


oto  14; 


J 


Figure  3.10  Function  ANS 


function  query (a, irinteger) ;boolean; 

latel  15,16,99;  •  ^  • 

begin 

if  resatisfy  then  begin  break  (15)  ;  goto 
15:if  (accept  (ans,  15, a) )  then  goto  16; 
goto  99; 

16:if  okay(a)  then 
begin 

guer y : =true ; 
return ; 

end; 

9  9: guery : =false 

end ; 


15;  end; 


Figure  3.11 


Function  QOERY 


transfer  passes  to  satisfy  the  next  function  corresponding 
to  the  next  clause  in  the  Prolog  program.  If  this  function 
can  not  create  a  "true"  value,  now  the  "backtracking"  process 
begins.  The  transfer  goes  to  the  last  tried  function,  if  the 
last  one  has  already  any  alternative  to  be  satisfied.  This 
checking  is  made  possible  by  the  "possible"  function. 

The  execution  sequence  may  reach  to  the  last  "if"  state¬ 
ment  (in  "the  density  example,  the  statement  labeled  9) . 

The  function  "okay"  checks  the  returned  values  of  called 
functions  in  that  function  (namely,  in  the  "density"  example. 
They  are  "pop",  "area"  and  "is").  Finally,  it  evaluates 
them  and  causes  to  be  assigned  a  truth  value  to  that  function. 

The  function  "ans"  (see  Figure  3.10)  is  also  created  by 
the  same  logic  described  before.  It  calls  some  system  func¬ 
tions  such  as  "greater"  and  "lessthan".  These  correspond  to 
the  Prolog  clauses  which  contains  the  relational  operators, 

">"  and  "<",  accordingly. 

The  function  "query"  (see  Figure  3.11)  corresponds  to 
the  Prolog  query  given  by  the  user.  Its  construction  is  not 
different  from  the  other  functions  described  so  far.  The 
actual  execution  chain  starts  from  this  point.  Eventually, 
the  value  of  this  function  will  be  the  answer  to  the  user. 

Finally,  the  main  body  of  the  Pascal  program  is  illus¬ 
trated  in  Figure  3.12.  Its  important  feature  is  to  demon¬ 
strate  the  starting  point  of  the  resatisfying  process .  The 
user  may  request  to  resatisfy  his  goal,  namely  he  enters  " ; " - 


function  density  (a, i:integer) :boolean; 

label  6,7,8,9,99; 

begin 

if  resatisf;  then 
begin 

break  (8)  ; 
goto  8; 

end : 

6;if  (accept (fop,6,a) )  then  goto  7; 
goto  99; 

7:if  (accept  (area,  7,  a) )  then  goto  8; 
if  not  (possible  (6))  then  goto  99; 
break (bt ; 
goto  6; 

8:if  (accept  (is- 8, a)  1  then  goto  9: 
if  not  fpossinle  (7)  )  then  goto  99; 
break (7f ; 
goto  7 ; 

9:i£  okay  (a)  then 
begin"^ 

density :=true; 
return ; 

end; 

99:density:  =  f  alse 

end; 


Figure  3.9  Function  Density 

determine  if  the  context  of  "resatisfaction"  exists.  If  it 
does,  then  the  existing  links  for  binding  variables  are  brok¬ 
en  by  the  "break"  and  transfer  goes  to  the  last  function  cor¬ 
responding  to  the  last  clause  of  the  Prolog  program.  In  the 
"density"  example,  transfer  will  go  to  statement  labeled  8, 
if  the  "resatisfaction"  occurs.  This  transfer  will  cause  the 
function  "is"  to  be  called. 

All  "goto's"  in  the  "density"  function  simulates  the 
"backtracking"  process  of  Prolog.  As  noticed,  after  trying 
all  possibilities  for  the  "pop"  function,  transfer  goes  to 
the  last  statement  of  the  "density"  function.  Otherwise,  if 
any  alternative  of  "pop"  returns  the  "true"  value,  then 
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fuQctioo  accept  (function  name  (a,  j:  integer) 
:boolean ;a, jzinteger) :booleaa; 
var  i:integer; 
begin 

£cr  i:=first(a}  to  last  (a)  do 
begin 

j.£  (first  (al>last  (a) }  then  leave; 

rf  (naoe  (a  ,1) )  then 

begin 

proc  (.a.) . now:=succ(i)  ; 

accept:=true; 

return; 

end; 

end ; 

accept: =false; 
resetit (a) ; 
end;  (♦  accept  ♦) 


Figure  3.8  Function  ACCEPT 

job  of  "accept"  is  to  try  all  alternative  clauses.  If  there 
are  no  more  alternatives  to  be  resatisfied,  it  returns 
"false".  The  functions  "first"  and  "last"  determine  the  func 
tion  numbers  of  alternatives  for  any  caller  function.  The 
function  "resetit"  will  reset  the  numbers  of  alternatives 
for  the  future  use. 

The  structure  of  the  function  "density"  (see  Figure  3.9) 
summarizes  the  resatisfying  and  backtracking  processes  in¬ 
herited  in  the  Prolog  program.  If  there  is  any  "resatisfac¬ 
tion"  request,  the  execution  sequence  has  to  start  from  the 
rightmost  clause  to  leftmost  clause  of  the  Prolog  program. 
Also,  if  there  is  a  need  for  the  backtracking,  this  process 
also  will  begin  from  the  right  to  the  left. 

The  logical  variable  "resatisfy"  in  the  "density"  func¬ 


tion  is  a  global  variable  to  the  program.  Its  job  is  to 


function  popi (a,l rinteger) : boolean; 
begin 

popi  :=match  (a,i)  ; 
end;  . 

function  pop2  (a,i:iiitegec}  : boolean; 
begin 

pop2:=match  (a^i)  ; 

end; 

function  pop (a , i: integer)  : boolean; 
begin 

case  i  of 
1: 

2; 
en 

end; 


Fignre  3*6  Panction  POP 


function  areas (a, i:integer) :boolean; 
begin 

acea3:  =  iBatch (a,i)  ; 

end ; 

function  areaU (a,i:integer) :boolean; 
begin 

areaa:=iLatch  (a,i)  ; 

end ; 

function  area (a,i:integer) : boolean; 
begin 

case  i  of 

3  :area:=:area3  (a,  i)  ; 

4  :area:=area4  (a,i)  ; 
end ; 

end; 


I 

Figure  3.7  Function  AREA  ^ 


i 
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alternatives  are  shown  in  Figure  3.‘j.  Formal  parameters  "a" 
and  "i"  which  are  defined  as  integers,  are  function  numbers. 
The  parameter  "a"  is  the  number  of  the  caller  as  described 
in  Figure  3.3.  The  other  parameter  "i"  corresponds  to  the 
callee's  number  which  is  driven  in  the  "pop"  function  by  the 
"case"  statement.  The  function  of  the  "case"  statement 
placed  in  "pop"  is  very  important.  All  alternatives  clauses 
will  be  tried  by  this  construction  until  the  "resatisfaction" 
is  not  required  any  more  or  any  impossible  condition  occurs. 

The  "match"  function  included  in  "popl"  and  "pop2"  is 
the  library  function.  The  unification  and  binding  process 
will  be  made  by  this  function.  If  its  returned  value  is 
true,  this  means  that  the  "binding"  occurred  after  the 
"matching"  process. 

The  function  "area"  and  its  alternatives  "areal"  and 
"area2"  are  shown  in  Figure  3.7.  These  functions  have  been 
constructed  with  the  same  way  as  in  the  example  "pop" . 

Before  describing  the  other  functions,  we  want  to  note 
the  importance  of  "accept"  function  shown  in  Figure  3.8. 

This  is  the  general  driver  for  all  functions.  It  accepts 
any  function  name  and  its  number  as  arguments  and  calls  all 
possible  alternative  functions.  For  example,  to  call  "popl" 
or  "pop2",  "accept"  creates  functions  numbers  which  will  be 
used  by  the  "case"  statement  of  the  "pop".  If  any  returned 
value  is  "true"  during  the  execution  of  "for"  loop,  "accept" 
will  also  return  a  "true"  value.  As  you  noticed,  the  first 
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when  a  rule  is  used  one  way  can  be  harmless  or  even  beneficial, 
the  very  same  cut  can  cause  strange  behaviour  if  the  rule  is 
suddenly  used  in  another  way.  However,  the  cut  operation 
would  be  introduced  by  defining  a  function  to  our  implementa¬ 
tion.  But,  we  desired  to  give  importance  to  relational  data¬ 
base  applications.  For  this  reason,  this  operation  is  missing 
in  this  implementation. 

Pascal  has  been  chosen  as  an  implementor  language.  The 
type  checking  and  strong  typing  implies  that  careful  design 
and  planning  should  be  considered  in  the  compiler  writing 
process.  In  particular,  this  language  does  not  allow  one  to 
define  twice  names  in  the  same  context.  Prolog  does  not  re¬ 
strict  this.  So,  we  renamed  the  user's  procedure  names  when 
translating  them.  However,  Ada  does  allow  one  to  define 
procedures  with  same  name  (but  with  different  number  of  para¬ 
meters)  in  a  given  context.  This  language  would  provide  much 
more  features  for  this  implementation. 

As  a  conclusion  we  want  to  emphasize  that  the  programming 
language  Prolog  itself  also  has  more  advantages  than  other 
existing  conventional  programming  languages  for  writing  a 
Prolog  Compiler  and  also  other  compilers.  Many  of  the  ad¬ 
vantages  should  be  clear  from  the  discussions  that  we  have 
made  so  far.  It  is  important  to  take  into  account,  not  just 
the  compiler  which  is  the  product,  but  also  the  work  which 
must  go  initially  in  designing  and  building  it  and  into  sub¬ 
sequently  maintaining  it. 
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To  summarize,  Prolog  has  the  following  advantages  as  a 
compiler-writing  tool:  less  time  and  effort  is  required, 
there  is  less  livelihood  of  error  and  the  resulting  imple¬ 
mentation  is  easier  to  maintain  and  modify.  Here  is  the 
last  and  most  important  sentence  of  this  thesis:  Prolog  will 
be  the  programming  language  of  the  20th  Century. 


4SPES252  i 

SOHE  FEATUfiES  OF  PASCAL/7S 


1)  Separately  compileable  modules  are  supported  with  the 
SEGMENT  definition. 

2)  "Internal  static"  data  is  supported  by  means  of  the 
"static"  declarations. 

3)  "External  static"  data  is  supported  by  means  of  "def" 
and  "ref"  declarations. 

4)  Static  and  external  data  may  be  initialized  at  compile 
time  ty  means  of  the  "value"  declarations. 

5)  Constcint  expressions  are  permitted  wherever  a  constant 
is  permitted  except  as  the  lower  bound  of  a  subrange  type 
definition. 

6)  The  keyword  "range"  may  be  prefixed  to  a  subrange  type 
definition  to  permit  the  lower  value  to  be  a  constant 
expr essicn. 

7)  A  varying  length  character  string  is  provided.  It  is 
called  STSING.  The  maximum  length  of  a  STRING  is  32367 

oil  ^  IT  ^  O  ^  6  ^  S  • 

8)  The  STRING  operators  and  functions  are  CONCATENATE, 
LENGTH,  STR,  SUBSTfi,  DELETE,  TRIM,  LTRIrt,  COMPRESS  and 
INDEX. 

SI  A  new  predefined  type,  STRINGPTR,  has  been  added  that 
permits  the  programmer  to  allocate  strings  with  the  NEW 
procedure  whose  maximum  size  is  not  defined  until  the 
invocation  of  NEW. 

10)  A  new  parameter  passing  mechanism  is  provided  that 
allows  strings  to  be  passed  into  a  procedure  or  function 
without  reguiring  the  programmer  to  specify  the  maximum  size 
of  the  string  on  the  formal  parameter. 

11)  The  MAIN  directive  permits  the  programmer  to  define  a 
procedure  that  may  be  invoked  from  a  non  pascal  environment. 

12}^  Files  may  be  accessed  based  on  relative  record  number 
(ranaom  access)  . 

13)  The  tagfield  in  the  variant  part  of  a  record  may  be 
anywhere  within  the  fixed  part  of  the  record. 

14)  A  parameter  passing  mechanism  (const)  has  been  defined 
which  guarantees  that  the  actual  parameter  is  not  modified 
yet  dees  not  require  the  copy  overhead  of  a  pass  by  value 
mechanism. 

15)  "leave",  "continue"  and  "return"  are  new  statements 
that  permit  a  branching  capability  without  using  a  "goto". 

16)  Labels  may  be  either  a  numeric  value  or  an  identifier. 

17)  "case"  statements  may  have  a  range  notation  on  the 
component  statements. 

18)  An  "otherwise"  clause  is  provided  for  the  "case" 
stat  ement. 

19)  The  variant  labels  in  records  may  be  written  with  a 
range  notation. 

20)  Constants  may  be  of  a  structured  type  (namely  arrays 
and  records). 

The  other  features  which  are  not  included  here,  are  not 
directly  related  to  cur  application.  The  concerned  user  may 
refer  to-  Pascal/7S  Manuals  at  NPGS. 
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APPBMPIX  B 

TBABSLATOB  POB  SPBOLOG 


program  npro  (input, output)  ; 
ccEst  nax=1500; 
type  trec=record 

lineuum: integer; 
relnum: integer; 
name:alpha; 
ttype; integer; 
locality :integer ; 
end; 

ttype=array  (.  1 .  .max.)  < 
procrec= record 

r ulenum ; integer ; 
relnum: integer; 
name:alpha: 
ptype: integer : 
relativity: integer ; 
pointer 1  :integer; 


tree; 


t)ena:int€cer ; 
abegin: integer; 
aendiinteger ; 
yesno: integer; 
callee: integer; 
as: integer; 
ae : integer; 
now: integer; 
pom: integer ; 

end; 

parrec=recor d 

rulenum; integer ; 
relnum :  integer ; 
naffle:alpha; 
ptype: integer ; 
locality : integer ; 
pointer: integer ; 
ntype: integer ; 
nbind: integer ; 
nmatch: bcclean; 


end: 
t:  ttype: 

line,tOKenindex, t bound, i, pend, p beg in: integer ; 
query: boolean; 

date, time: alf a; result: alpha; 
lexerror ,tokenerror : boolean; 
procfile.par auf ile, listing,  altf ile: text ; 
lib  1,lib5;iit3.1ib5, user; text; 
px,tx,ax,gg, ret : integer ; 
proc:arraY  (.  1. . max. )  of  procrec; 
par: array!. 1 . .max.)  of  parrec; 
alt :array (. 1 . .max.)  of  procrec; 


alt :array I 


procrec; 


procedure  cms (const  parmstr: string ;  var  rc:integer) 
external ; 

procedure  message  (const  asg:string;7alint:integer) ; 

var  term:text; 

begin 

termout (term)  ; 
if  (valint>0)  then 
begin 

writeln  (term,  valint  :3,str  (* .  *)  llmsg)  ; 

write In (listing, valint :3 ,str ( • .  *) | Imsg) ; 

end 

else  if  (valiiit=0)  then 
begin 

writeln (term, msg) ; 
writeln  (listing,  msg)  ; 

end 

else 

begin 

writeln (term, msg, (-valint) ) : 
writeln  fisting, msg  ,  (-valint) )  ; 


end ; 


end : 

close (term) ; 


function  strlen{ccnst  instrzstring)  :  integer ; 

var  chs6t:set  of  char;  j,i:integer; 

begin 

1 :  =  0  * 

chsel :=(.*0*..*9*,*a*..*z*.)  ; 

chset ; =chset+not (chset) ; 
chset;  =chset- (.  *  *•).; 
for  i:=1  to  length (instr)  do 
begin 

if  (instr  (.i.)  in  chset)  then 
3:  =  succ(j); 

end : 

strlen;= 1; 

end; 


procedure  checktckens; 
const  inaxtoken=  17 : 

legaltoken=i6: 

type 

rec=  record 
res: alpha; 
end ; 

var  bashtable: array (. 1. .max.)  of  integer; 
tokens:array  (.i..maxtoken.)  of  alpha; 
totaltoken; integer: 
tokenf lie: text:  before :alpha ; 
hashbound, j, reltoken,rule:integer ; 
source: string  (70)  ; 
outfile:file  of  rec; 
pasfile: text: 
procedure  taketoxens; 
var 


taken: alpha; 
dummy: integer; 
begin 

reset  (tokenf  ile,  ’  name=ptoken.input.a  *)  ; 

while  not  (eof  (tokenf  ile) )  do 

begin 

readln (tckenfile, dummy. taken)  ; 
taken:  =  ltrim  (str  (taken) )  ; 
tokens  (. dummy.)  :=taken; 

end; 

close (tokenf ile)  ; 

end ; 

function  identifi€r:boolean; 
var  idset;set  of  char; 

i:integer; 

begin 

idset:=  {.  »a»..  *  *•); 

if  (result  (.1.)  in  Xdset  )  then 
begin 

identif i€r:=true; 
return; 

end ; 

identifier: =true; 

for  i:=1  to  strlen (str (result) )  do 
begin 

if  (not  (result  (.  i.)  in  idset  ))  then 
begin 

identifier:=f alse; 
return ; 
end; 


function  a  ton: boolean; 
var  idsetzset  of  char; 

i:integer; 

begin 

idset  :=  (.  *  a  *. .  *  z*. )  ; 

atom;  =  (result  (.  1.)  xn  idset)  ; 

end; 

function  number: boolean; 
var  numset:set  of  char; 
i : integer ; 

begin 

numset :  =  ; 

number: =tru€; 

for  i:=1  to  strlen  (str (result) )  do 
begin 

if  (not  (result  (.i.)  in  numset  ))  then 
begin 

numb€r:=false ; 
return ; 
end; 

end; 

end; 


value  hashiiidex:=0; 
begiu 

token£ouiid:  =  f  alse : 

for  j:=1  to  naxtoKen  do 

begin 

if  (result=tokens  {.  j.) )  then 
begin 

hashindex:=sttccXhashindex) ; 
hashtable  (.  hashxndex.)  :  =  1 ; 
if  i j>legaltoken)  then 
begin 

ln;=t  (.i-  ) .  linenum; 
message 

{•erroneous  token:  '  1  1  str  (result) , In) ; 
t ckenerror : =true ; 
end ; 

tokerf ound: =tr ue ; 
leave; 

end; 
end ; 

if  j[not  (tckenf ound) )  then 
begin 

if  identifier  then 
begin 

hashindex:=succ{hashindex) ; 
hashtable  (.  bashindex. )  :  =succ  (maxtoken)  ; 
tckenfound: =true; 

end; 

end ; 

if  j[not  (tckenfound) )  then 
begin 

if  nuaber  then 
begin 

ha£hindex:=succ{hashindex) ; 
hashtable  (.  bashindex. ) 

:  =succ  (succ  (maxtoken) )  ; 
tokenfound; =true; 

end; 

end; 

if  (not  (tokenfound) )  then 
begin 

if  atom  then 
begin 

bashindex :=succ (bashindex) ; 
hashtable  (.  bashindex. ) 

:  =succ  (succ  (maxtoken) )  ; 
tckenfound; =true; 

end; 

end ; 


if  (not  (tckenfound) )  then 
begin 

t okenexror : = true ; 
ln:=t  (.i.).  .linenum; 
message 

(’error...  tok€n=====>  *  |  |  str  (result) ,  In) ; 

end: 

hashbound :=hashindex: 


end; 


Erocedure  putfile  (i:integer}  ; 
cgio 

writeln (rule  :4,reltoken:4, •  ’.result) ; 

outf ilea. res :=result ; 

put(outfile)  ; 

t  (.1.)  .  lineuun:=rule: 

t{.i.}  .reluuB:=reltoKeQ; 

end; 

procedure  rejecttcken; 

var  i,j;integer;  t:ttype;  tftboolean; 

opset:set  of  char; 
begin 

opset:  =  (.*+’ ; 
message  f*  *#0J: 
for  i:  =  i  to  (tbound-1)  do 
begin 


tf  :=  (t  (.  i.) .  name=* :  •) 
ft  f.i+i.) .name=* 
if  tf  then 


') 


')) 


t  (.i. )  .name;  = 

end: 

-j  •  SQ  • 

for  1:=1  to  ttound  do 
begin 

tf :  =  (not  (t  (.i.)  .  naiDe=’ 
if  tf  then 
begin 

1 :  =succ  ( j)  ; 

b  (.  j. )  .name:=t  (.i.) .  name; 
end; 

end; 

thound;= j; 

if  (f  (. tbound.)  .name  <>  '.’) 
begxn 

message 

(’warning.,  no  eof? 

,t  (.  tbound. ) .  linenum)  ; 
t  (.tbound+1.)  .naiae:=’.  ’  ; 
tbound:  =  succ  (tbound)  ; 

end; 

rul€:=1:  reitoken;=1; 
for  i:  =  1  to  ttound  do 
begin 

result:  =  t  (.i. ) .  name ; 
with  t(.i.)  do 
begin 

if  (identifier  or 
atom  or 
number  or 

(result  (.1.)  in  opset) ) 
then  lccality;=D 
else  locality :=-1 ; 


then 

assumed’ 
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putfile (i) ; 

if  (result=*.*j  then  rule:=succ  frule) 
if  (result=»,')  then  reltoken:=0; 
reltoken:  =£ucc  (reltoken)  ; 
whichtoken  (i)  ; 
eni; 

end ; 


Eroccdare  puttokei; 
egin 

before: =resu It; 
totaltoken:=succ (total token) ; 
tokenindex: =£ucc (tokenindexj  ; 
t  (.  tokenindex.)  .nam€:=r€sult; 
tbound:=tokenindex; 
end;  l+put  token  ♦) 
procedure  tokenfeund; 
var  i: integer; 
static  proc: integer ; 
value  proc:=0; 
begin 

taketokens; 
totaltoken;=0 ; 

reset  (pasf  ile- '  naiBe=source.  proloq .  a ' )  ; 

rewrite  {outfilej  ;  ^ 

line:=0;  ' 

while  not  (eof  (pasf  ile) )  do 

begin 

readln (pasfile, source) ; 
if  (sourceOstr  (*  *)) 

then  line :=succ (line) ; 
if  (sourceOstr  (*  ^)) 

then  itessage  (source,  line)  ; 
source:  =ccnipress  (source)  ; 
j:=length  (source)  ; 

while  (i<=j)  do 
begin 

token  (i,sourc6yresult)  ; 
if  (results*. then 
proc :ssucc  (proc) ; 

If  iresultO*  'fthen 
begin 

if  (results*-*)  then 

if (bef ores* : *)  then 
result: =str (*:-*) ; 
puttoken; 

end; 

end; 

end; 

reieettoken; 
end;  (*  tokenfound*) 
begin 

rewrite (listitg) ; 
before :  =str  (*  a*)  ; 
tokenerror : s  false ; 
tokenfound; 

end;  (♦  checktokens  *) 


tokenfound*) 


rocedure  lezicalanalvzer ; 
7p€  xtYpe=arraY  (.1../. )  o; 


type  xtype=array  )  of  integer; 

ptype= record 
name: alpha; 
nunib :  integer ; 
end; 

var  prec:array  (.  1..  12.)  of  Ptype; 

a:arraj  (.  I. .  80, 1.  .7.)  or  integer: 
global, null:  boolean;  ttolcen:alpna 
procedure  takeexp; 
var  expfile: text ;  i,j:integer; 
begin 

reset  (expf  ile,*  name=exp.input.a  1  *) 
i :  —  0  * 

while  not  (eof  (expfile)  )  do 
begin 

i:=succ fi) ; 

for  j:=1  to  7  do 

begin 

read  (expfile, a  (.i,j.) )  ; 
reaSln  (expfile)  ; 

end; 

end;  (*takeexp*) 

frocedure  give; 
egir 

prec  f.  1 . ) .  nani€:  =  *  +  '  ; 
prec  . 1 .  . numb: =5 ; 
prec  '. 2.  .name:  =  ’-'; 
prec  '.  2.  1  .numt:=5; 
prec  .3.  .nan€:=*** ; 
prec  3 . '  .  numb:  =  5 ; 
prec 1 . 4.  . naB€:  =  */* ; 
prec  1.4.  .nuiBt:  =  5; 
prec  1 .5.) .  nani6:='  =  '  ; 
prec  (.5.  .  nuat:=6; 
prec  .6.  .  naiiie:=*<’ ; 
prec  .6.  i.nunib:=7; 
prec(.7.  .nam€:=’>*; 
prec(.7.  .numh:=7; 
prec  .8.  .naB€:  =  *<>'; 
prec  ’.  8 .  .  numt:  =  7 ; 
prec  ’.  9.  .  naae:  =  ’  <='  ; 
prec  9. )  .  nunit:=7: 
prec  (.  10.) .  naBe:  =  '>=* ; 
preci.10.'  .nuib:=7; 
prec  ’.  11.)  .nanie:  =  ’is* ; 
prec  ,.  11.)  •  nuBb:  =4; 
prec  .12.  .naBe:=*is*; 
prec(.  12.)  .nuBb:=4; 

end ; 


2.)  o 

.  .7.) 


Ptype; 
of  integer: 
ttoken:alpna 


function  taketokec: alpha ; 
begin 

if  global  then 

tokenindex ;=succ  (tokenindex)  ; 
null:= (tokeniEdex>pend) ; 
assert  not (null)  ; 
if  not (null)  then 

taketoken :=t (.tokenindex. ) . name 
else 

taketoken  :  =  '  51* ; 
end;  (♦  taketoken  ♦) 
ptccedure  reject; 
cegin 

tokenindex;  =pred  (tokenindex)  ; 
end;  (♦  reject  *7 
function  lef ttboclean; 
begin 

lef t ;=false ; 
if  not  (null)  then 

lef t;= (tak€token=*  (*) ; 

end; 

function  right ; bcclean; 
begin 

right:  =  false ; 
if  not (null)  then 

right:= (taketoken=’ ) * ) I 

end; 

function  comma: boolean ; 
begin 

comma: =false ; 
if  not (null)  then 

comma;= (taketoken=’ # ') J 

end ; 

function  variabl€:boolean; 
var  idset:set  of  char; 

i: integer ; 
begin 

variable:=f alse; 

result : =take token; 

idset:=  (.’a'..  '_».)  : 

if  (result  (.1.)  in  idset  )  then 

begin 

variable:=true; 

return; 

end; 

end ; 
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roc€dure  pardo (t: tree)  ; 
egin 

tx:=succ  (tx)  : 


par 

par 

par 

par 

par 


,  r ulenum :=t . linenum; 
.  relruin:=t.  relnum; 

.  naii€:=t.naae; 


. pt jpe:=t. ttype; 

ocality: =t. locality ; 


local 


.  tx 
tx 
tx. 
tx. 
tx. 

erd ; 

procedure  beginend; 
label  a1«a2; 
var  i,j:integer; 
begir 

for  i:=l  to  px  do 
begin 

proc  (.  i. )  .b begin  ;  =  0; 
proc  (.  i.  ) .  bend;  =  0  ; 

end : 

i: =0 ;  j :=0  ; 
repeat 

1  :  =  succ  (i)  ; 
if(i>px)  tnen  return; 
until  fproc  (.i.)  .relativity=1)  ; 
j:  =  pre4U)  • 
proc(.j.)  .M:€jir.:  =  i; 
repeat 

i  :  =succ  ( , 
if(i>px)  ^  r.^-r 
until  (  pr  oc  (-  i  .  '  . 


a1 


tr.; 


a^; 


proc  {.  j;) 
goto  ai ; 
proc ( . j . )  . 1 1  L i : 


JO* c  ai: 
lit  IV  it  y  =  3)  ; 


end;  begxnenJ  •; 
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tegin 

for  i:=1  to  px  do 
tegin 

proc  (.i. )  .abegiii:  =  0; 
proc  {.  i. )  .a€ncl:  =  0: 
altf.i.)  .abegin:=0; 
alt  (.1. )  .aena:=0  ; 

end; 

for  i:=1  to  px  do 
tegin 


if 

if 


proc 

proc 


•i. ) . relativity=0)  then  continue; 

_ j.i.) .  ptype=6)  then  continue; 

if  (proc  ( .i. J  .abeginOO)  then  continue; 
passname  :=proc  {.  x. )  .name; 
putalternate (passname,ab,ae)  ; 
putthenumter (passname, ab^ae, 1) ; 

end: 
i:  =0 ; 

for  a:=240  tc  249  do 
for  b;=240  to  249  do 
begin 

if((a=240)  and  (b=240))  then  continue; 
i :=succ  (i)  : 
if(i>ax)  then  leave; 
if(a<>240)  then 

alt  (.  i.) .  name :  =  trim (str  (alt  (.i.)  .  name) ) 

str  (char  (a) )  |  |  str  (chr  (fc) 

else 

alt  (.i.)  .  name  :  =  trim  {str  (alt  (.i.) .  name) ) 

str  (chr  (b) )  ; 

end : 
call; 

end;  (♦  alternatives  *) 
procedure  procdo  (t:  tree)  ; 
tegin 

px;=succ  (px)  ; 

. rulenum;=t. linenum; 

, relnum:=t.relnum; 
name:=t.name; 
ptype;=t. ttype; 


I  I 


end 


proc 

proc 

proc 

proc 
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frocedure  call; 
var.a.,ij,  jiiDtegex; 
begin 

for  i:=1  to  fx  do 
begin 

proc  (.i. )  .yesno:=0  : 
proc  (.i. )  .callee;  =  0; 

end; 

for  i:=1  to  ax  do 
begin 

ij;=alt (.i.)  .abegin; 
proc  (.ig.)  .yesno:  =  1; 

end; 

for  i;=1  to  px  do 
begin 

if (proc  (.i.) .yesno=11  then  continue; 
if  proc  .i.'  .  abegin>u)  then  continue; 
if  proc  .i.  .ptype=6)  then  continue; 
if  proc  .i.  .callee>D)  then  continue; 
if  proc  .i.  .relativity>0)  then  continue; 
for  j:=T  to  px  do 
begin 

if  (proc  (. g.  )  . yesno=  1)  then  continue; 
if  proc  .g.  .ahegin>0)  then  continue; 
if  proc  .g.  .ptype=6)  then  continue; 
if  proc  .g.  .callee>0>  then  continue; 
if  proc  .  g. '  .relativiry=0)  then  continue 
if  (prcc  (.1.)  .naoeOproc  (.g.)  .name)  then 
continue: 

proc  (.g. ) .  callee:=i; 

end; 

end ; 

end;  (♦  call  ♦) 
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procedure  createarrays; 
var  a.b,i, j- count -before: integer ; 
procedure  alternatives; 
var  i,ab,ae: integer; 
passnamexalpna; 
a,b:integer: 
procedure  puralternate 

(passname: alpha;  var  ab^ae: integer) ; 
var  i,j:integer; 
static  x:integer; 
value  x:=1 ; 
begin 

ab:=x; 

for  i:=1  to  px  do 
begin 

if  (proc  (.i.)  .relativityOO)  then  continue; 
if  (proc  (-i. )  .nameOpassname)  then  continue 
altf.x.)  :=proc(.  i.)  ; 
altf.x.)  .aend:=i; 

alt  (.X.)  .abegin:=proc  (.i.) .  rulenum; 
ae: =x; 
x;=succ  (X)  ; 

end; 

if  (abOO)  then 
begin 

if  ( iab-aej  =0)  then 
began 

ab: =0; 
ae:=0 ; 
x;=pt€d(x); 

end ; 

end; 

ax;=pred  (x)  ; 

end; 

procedure  putthenumber 

(passnaae:alpha;  ab,ae,i:integer) ; 
var  j:integer; 
begin 

for  j:=i  to  px  do 
begin 

if (proc  ( . g. ) . relativity=0)  then  continue; 
if  (proc  (.  I- ) .  naneOpassname)  then  continue 


proc  (.  g. )  -an 
proc  (.  g. )  -ae 

end; 

end;  (♦  putthenumber 


oc  ( . g. ) . relativity=0)  t 
oc  (.  g.) .  naneOpassname) 
.  g. )  .abegin:=af); 

. g. ) .aend:=ae ; 


( 


end; 
return; 
end; 

if  (g=0)  then 
tegin 

query: =f alse; 
message 

error. .. there  must  be 
return; 

end; 

if  (g>1)  then 
begin 

query: =f alse; 
message 

error... more  than  one 
end; 

end;  (♦changea*) 


(* 


a  "query"  procedure*,!) 


"query"  procedures' ,r) ; 


begin  (♦  lexical  analyzer  ♦) 
lex€rror:=false; 
global :=true; 
takeezp;  give: 
null:=false;  tokeninaex:=0; 
i:=0;  pbegin:=1: 
while  ii<=tbcuna)  do 
begin 

repeat 

i:  =succ  (i)  : 

if (i>tbound)  then  leave; 
until  (t(.i.).name  =  *.*); 
if  (i>tboand}  then  leave; 
pend :=i; 

if  not  (prcc)  then 
begin 

lexerror:=true; 

i:=pend: 

tokeninaex: =pend; 

end; 

pbegin;  =sacc  (i)  ; 

end : 

end;  (♦  lexical  analyzer  ♦) 

procedure  changea; 

var  i-q,r, bb, be: integer ; 

dummy: alpha; 
begin 

query : =false ; 
q:=0; 
r :  =0; 

for  i;=1  to  px  do 
begin 

dummy:=*  * 


dummy:  =ttim(str  (prcc  (.i. ) . 
if(dummy  =  *aO  then 

proc (.i.) . name:  =  *$*; 


name) ) 


if (dummy=*guery*)  then' 
begin 

g:=succ(q)  ; 
r  :=i ; 
end; 

end ; 

if  (g=1 )  then 
begin 

query ;=tru€; 

Eb;=proc  (.r.)  .bbegin; 
be:  =  proc  (. r.) .  bend ; 
if  (bb=0)  then 
begin 

query : =false; 
message 

error. .. "query”  must  be  defined  as 


rule* , r)  ;  j 
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end 


if  comma  then 
goto  a1; 
proc:=false: 

result  :  =  t  {.  tckeuindex. )  .  name; 
i:=t  (. tokenindex.)  .linenum; 
message 

(’error..,  structure  expected.. 
I  istr (result) ,i)  ; 

(*  proc  ♦) 
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function  structure: boolean ; 
begin 

if  infix  then 

structure  :=true 
else  structaxe:=pref ix : 

end ; 

function  proc: boolean; 

label  a1 ; 

begin 

if  not  (prefix)  then 
begin 

resalt:  =  t (.tokenindex.)  .name; 
i:=t  {.  tokenindex.)  .linenuo; 
message 

(•error...  structure  expected 
I  Istr(result)  ,i)  ; 
proc:=f alse; 
return; 

end; 

if  point  then 
begin 

proc:  =  true; 
return ; 

end; 

if  not  *(iff )  then 
begin 

result:  =t  (.tokenindex.)  .name; 
i:=t  (.tokenindex.)  .linenum; 
message 

(•error...  or  ••:-••  expected 

I  Istr(result)  ,i)  ; 
proc:=fal£e; 
return; 

end; 

a1:  if  not  (structure)  then 
begin 

result:=t (.tokenindex.)  .name; 
i:=t  (. tokenindex.) .linenum; 
message 

(•error...  structure  expected 

I I  str  (result)  ,i)  ; 
proc:=false; 
return ; 

end; 

if  point  then 
begin 

proc:=true; 

return; 

end : 


function  infix; boolean; 
laiel  a1; 
type  rc=record 

name: alpha; 
ind: integer: 
end; 

var  i, cind ex, mid die, len, tm: integer ; 

€x:xtype; 

legal, legal 1 , legal2 : boolean ; 
toK;array (. 1,.8.)  of  rc; 
begin 

cindex :=tokenindex; 

i:=0; 

repeat 

i;=succ  (i)  ; rf  (i>8)  then  leave; 
ttoken ; =taketoken ; 
tok  (.i. )  .name;=ttoken: 
tok  (.  i. )  .ind:=tokenindex; 
until  (ttoken=*.*i  or  |ttoken= ' , ')  I 
len;=pred (tokenindex-crndex)  ; 
tm:=0; 

for  i;  =  1  to  len  do 

ireoin 

tor  j; =5  to  12  do 

if  jtok  (.i.)  .name^prec  {.  j.)  .name)  then 
begin 

tm; =i; 
goto  a1: 

end; 

end; 

a1:if  (tm=0)  then 
begin 

tokenind€x:=cindex ; 
infix;=f alse; 
return; 

€nd; 

for  i:=1  to  1  do 
.  ex(.i.):=0; 

for  i;=1  to  tm  do 
begin 

if((tm-i)<1)  then  leave; 
ifH<1)  then  leave; 
ex  (.  j.i:=tok  (.tm-i.)  .ind; 
j;=prea  ( j) ; 

end; 
i  •  “4  • 

tor  i:=tm  to  len  do 
begin 

if  ( j>7)  then  leave; 
ex  (.  j.)  :  =tok  (.i.) .  ind; 
j;=succ(j); 

end; 


■If 'i»  "!■»  j  n.»  ■"'ji  "iivti'  j  »"■  «■■  in L  ■V' I .' ■< 


function  check: bcclean: 
var  i:integer;  res: boolean; 
begin 

res:=true: 

for  i:=1  to  7  do 

begin 

res:=  (cex  (.i.  1  =f  (.  i.) )  and  res; 
if  not  (res)  then  leave; 

end; 

check: =res; 

end ; 

function  send: boclean; 
var  i,j:integer; 
begin 

send:=false; 

for  i:=1  to  8C  do 

begin 

for  i:=1  to  7  do 

if  check  then 
begin 

send  :=true; 
return; 

end; 

end; 

end ; 

begin  (♦  expression  ♦) 
convert ; 

€xpression:  =  s€nd; 
end;  (*  expression  *) 


I 


M 

!! 


I 


I 


i 
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function  expression (inex:xtyfe)  ;boolean; 

7ar  cex,f:xtype; 

procedure  convert; 

var  i, j,ix,cind€x;integer; 

begin 

for  i:=1  to  7  do 
cex  (.i.)  :=0; 
for  i:=T  to  7  do 
begin 

if  (inex  (-i.)  =0)  then  continue; 

for  j;=1  to  12  do 

begin 

4.x:=inex  (.i.)  ; 

if  ^t  (.ix.)  . name  =  prec  (.  j.)  .name) 
begin 

cex  (.i.)  :  =  prec(.  j.)  .numb; 
leave; 

end ; 

end; 

end : 

global: =false; 
for  i:=1  to  7  do 
begin 

if (inex  ( .i. 1 =0)  then  continue; 
if  (cex  (.  i.)  >0)  then  continue; 
tokenindex:  =inex  (.i.)  ; 
if  variable  then 
begin 

t  (.tokenindex. ) .  ttype;  =  1 ; 

cex  (.i.)  :  =  1 ; 

continue; 

end; 

if  number  then 
begin 

t  (.  tckenindex. ) .  ttype:  =  2  ; 

cex  (.i.)  ;=2; 

continue; 

end; 

if  atom  then 
begin 

t  (.tckenindex.) .ttype:=3; 

cex  (.i.) :=3; 

continue; 

end ; 

end: 

global: =tru€ : 
end;  (♦  convert  *) 


then 


function  i£f:bool6an; 
begin 

i££:=false: 
if  not  (null)  then 

iff :  =  (tak6token=  * :-  *)  ; 

end; 

function  procname:boolean: 
begin 

procname:=atcs; 

end; 

function  point : boolean ; 
begin 

point: =false ; 
af  not  (null)  then 

point:= (taketoken=* . • ) ; 

end ; 

function  prefix: boolean ; 
label  a1: 

var  local: integer; 
begin 

local; =0; 

if  not  (procname)  then 
begin 

prefix:=false; 

return; 

end ; 

if  not (left)  then 
begin 

reject ; 
local:=0  ; 

t ( . tokenandex.)  .ttype:=4; 

prefix:=true; 

return; 

end; 

t (. token index- 1. ) . ttype: =5; 
a1:  if  not  (varorccnst)  then 
begin 

prefix; =false; 
return; 

end; 

local;  =succ (local)  ; 
t  (-tokenindex.) .  locality:=local 
if  right  then 
begin 

prefix: =true ; 
return; 

end ; 
reject ; 
if  comma  then 
goto  a1: 
preiix ;=fals€; 
end;  (♦  prefix  ♦) 


function  a  tom: boolean ; 
var  idset:set  of  char; 

i: integer; 
begin 

result: =tak€token; 

i dset :=(.*a*..’z*.)  ; 

atom:  =  (result  (.  1.)  in  idset)  ; 

end ; 

function  number : boolean; 
var  numset:set  of  char; 
i : integer ; 

begin 

numset :  =  ( .*0*..*9*«)  ; 

number: =tru€; 

result :=taketoken; 

for  i:=1  to  strlen (str (result) )  do 

begin 

if  j(not  (result  (.  i. )  in  numret  ))  then 
begin 

number :=false; 
return; 
end; 

end; 

end ; 

function  varorconst:boolean; 
begin 

if  variable  tben 
begin 

t { .  t  oken indei . )  . tt  jpe :  =  1 ; 
var orcon  st : =true ; 
return; 

end 

else  reject: 
if  number  then 
begin 

t (.tokenindex.)  .ttype:=2; 
varorcon  st := true ; 
return; 

end 

else  reject; 
if  atom  then 
begin 

t  (.  token  index.)  .ttype:  =  3; 
varorcon st:= true ; 
return ; 

end; 

varorconst: =false; 

end ; 


procedure  putfiles; 
var  i: integer; 
begin 

rewrite  fprocfile)  ; 
rewrite i paraaiile) 
rewrite  altfile); 
for  i;  =  1  to  tx  do 
begin 

write  (paraiD£ile,i:  3, ' 
write  paramfile,par  (. 
write  paramfile, par  (. 
write  paraiD£i2*=*-'  •*' 
write  Iparamfii 
write  paramfil 
write  paramfii 
write  paramfil 
write  paramfil 


write (paramf ile, par ( 
write (paramfile, '  •: 
write (pa ram file, par 
write (paramfile, par 
write (paramf ile, par 
write (paramfile, par 
write (paramfile, par  ' 
write  (paramf ile,  par 
writeln  (paramfile)  ; 

end; 

for  i:=1  to  px  do 

begin 

write (proof ile, i:3 , • 
write  pr ccfile,proc 
write  prccf ile,  proc 
write  procfile,'  * 
write  prccf ile, proc 
write  prccf ile, proc 
write  pr ocfile,proc 
write  prccfile, proc 
write  prccf ile, proc 
write  prccf ile, proc 
write  prccfile, proc 
write  prccfile, proc 
write  pr ocfile,  proc  I 
write  prccfile, proc 
write  prccfile, proc 
write  prccfile, proc 
write  prccfile, proc 
write  prccfile, proc 
write (prccfile, proc 
writeln (proof ile) ; 

end; 

for  i:=1  to  ax  do 

begin 

write (altf ile, i:  3,  * . 
write  ’altfile,alt  (.i 
write  altfile,alt (-i 
write  altfile,*  ♦ :  4) 
write  altfile,alt (.i 
write  altf ile, alt  .i 
write  (altfile, alt  (-i 


•  ^  }  t 

)  .rulenum: 4)  ; 
)  .  relnum:4)  ; 

.name:  12)  ; 

. pointer :4) ; 


ocality:4)  ; 


. ntype: 4)  ; 
.nbind;4)  ; 


1) : 

) .rulenum:4) ; 

)  .relnum:  4)  ; 

.name:  12) ; 

.pointer1:4)  ; 
'  .pointer2:4)  ; 
, bbegin: 4) ; 
.bend:  4)  : 
.abegin:4)  ; 

, '  .  aend:  4) ; 


. aend:  4)  : 
.yesno:4)  ; 
.callee:  4)  ; 
.as:3l  ; 
.ae:3)  ; 

.now : 3) ; 

. pom : 3)  ; 


rulenum:  4)  ; 
relnum:  4)  ; 

name: 12)  ; 
ptype:4i : 
relativity:  4)  ; 


write  (altfile^alt  (.1. ' 
write  altfile,alt  -i. 
write  I altfile,alt ( .i. 
write  altfile.alt (. i. 
write  altfile,alt  '.i. 
write  altfile.alt  ,.i. 
writeln  (altfiie)  ; 

end; 

end;  (♦putfiles  ♦) 


.  pointer  1 : 4}  ; 
.  pointer2:  4)  ; 
.nbeQin:4} ; 

.  bend :  4)  : 

.  abegin :  4)  ; 

. aend: 4)  ; 


procedure  enow; 
var  i, j.k; integer: 

pani ,pan2:alpBa; 
begin 

for  i:=1  to  px  do 
begin 


proc  (.  1.  J  .as :=proc  (.i.)  . abegin; 
procf.  i.  .ae:=proc  (.i.)  .aend  ; 
proc  (.1.)  .now;  =  proc  {.i. )  .abegin; 
if (proc  (.i. ) . as<>0)  then  continue; 


proc  {. i.  .as:  =  1 ; 
proc  , i.  .ae:=1 : 
proc  (.  i. )  .  now:=  i ; 

end ; 

for  i;=1  to  px  do 

proc  (.i.j.pom:=0; 

Ic  *  “  1  * 

froc*(.  1.)  .poDi:  =  1; 
or  i:=1  to  px  do 
begin 

if  (proc  (.i.)  .poBi=0)  then 
begin 

k:  =succ  (k)  ; 
proc  (.i. )  .  pom:=k; 

end; 

§an1  ;  =  proc  (-i.)  .  name; 

or  j:=i+1  to  px  do 
begin 

pan2  ;=proc  (•  1- ) .  name; 
if (pan1=pan2}  then 

proc  (.  j.)  .pom:=proc  (.i.)  .pom 

end; 

end; 

end;  (*cnow*) 


procedure  genbiad; 
var  i^j;integer; 
tegin 

for  i:=1  to  tx  do 
begin 

par(.i.}  .nnatch:=f alse; 
if  (par  (- i.) .  ptype=  1)  then 
begin 

par  (.i. ) .  ntype:=0; 
par  { . i. ) - nbind : =0 ; 


par  ( • 1. ) . nbind : ; 
continue: 

end; 

par  f.i.l  .ntype:=par  (.i. )  .ptype; 
par  (.1. }  .  tbind:=i; 

end; 

for  i:=1  to  tx  do 
begip 

if  (par  {.  i.)  .ntype=0)  then  continue; 

for  j:  =  1  to  tx  do 

begin 

if  (par  (.i.)  .  naneOpar  (.  j.)  .name) 
then  continue; 


par  {.  j.) 

par{o-) 

end; 

end; 

end;  (♦genbind*) 


,ntype:=par 
,  nbind :=par 


f.i.)  .ntype; 
(.1.)  .nbind; 


begin 

Ex:=0;  tx:=0: 

tor  i:=1  to  tbound  do 

begin 

case  t(.i.).ttype  of 
4,5,6:  procao<t  (-i. )  1  ; 

l'2;3,7,e,9p0:pardo(t(.i.))  ; 

otherwise  tbouna:=tbound; 
end; 

end: 
i:  =  1; 

for  i:=1  to  fx  do 
begin 

if  (j>tx)  then  leave: 

if  iproc  (.i.) -ptype=4)  then 

begin 

proc  (.i.)  .pointerl:  =0; 
proc j.i.) .pointer2: =0; 
continue; 

end; 

proc  (.i.)  .pointerl  ;=j; 
par  (.1. )  .pointer:  =  i; 
repeat 


j  :  =  succ  (j)  : 
if  (j>tx)  then  leave; 
par  (.j.)  .pointer:=i; 

until 

(par  (.  j.)  .locality<=par  (.  j-1.)  .locality)  ; 
proc  (.1. )  .pointer2:=pred  ( j)  ; 
end;  (♦for*) 

before :=proc  (.1.) .rulenum; 

count: =0; 

for  i:=1  to  px  do 

begin 

if (proc  (.i. ) . rulenum=bef ore)  then 
begin 

proc  (.i.)  .relativity:=count; 
CO unt:=succ (count) ; 
continue; 

end; 

before:=proc (.i.) . rulenum; 
count:  =  1 ; 

end ; 

beginend; 
changea : 
alternatives ; 
enow ; 
genbind; 
putfiles : 

end;  (♦  createarray  ♦) 


function  defined zcoolean; 

var  i, j,X, F®»bb,t€:integer ;  deff rboolean; 

noozalplia; 

tegin 

def ined:=tru€; 
for  i:  =  1  to  fr  do 
begin 

if  (proc  (.i.)  .relativity=0) 
then  continue; 

if  f  proc  (.i. )  .  ptype=6)  then  continue; 
deff ; =f alse; 
for  j:=1  to  px  do 
begin 

if  (proc (.  j.l  .relativityOO) 
then  continue; 

if  (proc  {.  j.)  -name=proc  (.i.) .  name)  then 
begin 

deff :=true; 
leave; 

end; 

end; 

if  (not  (deff) )  then 
begin 

nom:=ltrim (trim (str (proc (.i.)  .  name) ) )  ; 
if(Eom=*$*)  then 
ncm;  =  *a* ; 
message 

(’undefined  procedure  *l|str(nom), 

Srcc  (.i.)  .  rulenum)  ; 

efined;=f alse; 
return; 
end; 

end; 

for  i:=1  to  px  do 
tegin 

if  (proc  (.i.)  .ptype=6)  then  continue: 

if  proc  (.i.  .relativity>0)  then  continue; 

if  (proc  (.i.  .bbegin=0)  then  continue  ; 

bb:-proc(.i.)  . bbegin ; 

be:=proc  (.i.) .  bend; 

for  5:=tt  to  be  do 

begin 

?m: =proc (. j.)  .pom; 

or  K:=i  to  px  do 
begin 

if  (proc  (.  k.  J  .relativity>0) 
then  continue; 

if  (proc  (.k.)  .pomOpm)  then  continue; 
nom;=ltrini  (trim  (str  (proc  (.k . )  .  name) )  ) 
if(nom=*$*)  then 
nom:  =  *  a' ? 


message 

(’undefined  procedure’ |  |  str  (nci 
proc  (.  k.)  .rulenum)  ; 

:ined :=false; 


end 

end  ; 

end; 

end;  (♦  defined 


defined 
return ; 


function  recursiv€:boolean ; 

var  i,j,k,l^v0,v1,v2,vb,ve,vb1,ve1: integer; 

xnane^nom: alfha 
begin 

recurs ive:= false; 
for  i:  =  1  to  rx  do 
begin 

if (proc  ( .i.) .bbegin=0)  then  continue; 
xname:=proc(.i.}  .naoe; 

for  j;  =prcc  (.  i. )  .btegm  to  proc  (,i.)  .  bend  dc 
begin 

if  (proc  (.  j. ) . nameOxname)  then  continue; 
recursive :=t rue: 
noin:=Itrim(trim(str  (xname) ) )  ; 
if(ncx='$*)  then  nom:  =  'a*; 
message 

('recursive  is  not  allowed*  |  | str  (nom)  , 

proc  (.i.)  .rulenuffl)  ; 

return; 

end; 

end; 

for  i:  =  1  to  px  do 
begin 

if  { (proc  (.i.)  .relativity=0)  and 
(proc  (.  i.)  .bbegin>0) }  then 
begin 

vO:  =proc  f-i..) . pom; 
vb:  =  proc  (.i.  ) .  tbegin; 
ve:  =  proc  (.i. ) .  bend; 


allowed  * 


end;  (♦  recursive  ♦) 


ve:  =  proc  (.1. ) .  tend; 
for  3:=vb  to  ve  do 
begin 

v1:=proc  (.  j.)  .pom; 
for  K:=1  to  px  do 
begin 

if  (proc  (.k.J .  relativity>0) 
then  continue; 
if  (proc  (.k.i .  bbegin=0) 
then  continue; 
if  (proc  (.k.)  .  pomOvI) 
then  continue: 
vbl :  =  proc  (.  k. )  .bbegin ; 
ve1:=proc  j.k.)  .bend; 
for  l:=vb1  to  vel  do 
begin 

v2;=proc  (.1.)  .pom; 
if(v5=v0)  then 
begin 

recursive  :  =  true ; 
xname:=proc  (.  1.) .  name; 
nom:  =ltrim  (trim  (str  (xname) ) ) 
if(nom='$')  then  nom:=a; 
message 

('recursive  is  not 

I  I  str  (nom)  , 

proc  (.1. )  .rulenum)  ; 

return; 

end  :  end :  end ; 
end;  end;  end; 


procedure  createpascal; 
var 

ext:array /.  1  ..255.)  of  alpha: 

P 1 »p2#p3,i,t :integer;pan: alpha; 
fuDction  nl (n: integer) :integer; 
var  i:integer: 
hegin 

nl:=2: 

i:=n  div  10; 
if  (i=0)  then  nl;=1; 

end; 

procedure  takelitO; 
var  linetstrinq  (72)  ;i:i 


var  linetstring (72) ;i:integer ; 

penpty ,aenpt y .tempty  tboolean ; 
.p,a,t;stringl6)  ; 
begin 

line:=* progran  user (input, output) ;' 

vriteln (user .line)  ; 

line:=*const' : 

uriteln (user .line) ; 

pempty  :=  (px=0)  ; 


p:=str 
a; =str 
t :=str 


*  true ' 
•true* 
•true* 


aempty :  =  (ax=0) ; 
teapty :  =  (tx=0)  ; 
if  pempty  then  px:=2; 
if  aempty  then  ax:=2; 
if  tempty  then  tx;=2; 
p;=str  f  *  false*)  ; 
a;  =str  ’*  false*  ; 

if  pempty  then  p:=str ( ’true M  ; 
if  aempty  then  a;=str  *true*  ; 
if  tempty  then  t:=str ( *true* ) ; 
writeln  (user , *  pempty=*,p:strle 

vriteln  user,*  aempty=* , a:strle 

writelnuser,*  tempty=*, t zstrle 

writeln  I  user,  *  px=' ,px:nl  (px)  ,  • 

writeln  user , *  ax=*,ax:nl  ax  , * 

writeln I  user, *  tx=* ,tx;nl i tx  ,* 

vriteln  (user ,  *  '3g=*  rSigml  (gg)  , ' 

end ; 

procedure  takelihl; 
var  linezstring  (72)  ; 
begin 

reset (libl , *  name=lib 1. pascal. a 1  * ) ; 

while  not  eof(libl)  do 

begin 

readln (libl, line) ; 
writeln  (user,  line)  ; 

end ; 

close(libl) : 
end;  (♦  takelini*) 


user ,  * 
user , * 
user ,  * 
user, * 
user .  * 


pe mp ty= * , p z strlen 
aempty=* , azstrlen 
tempty=*, t zstrlen 
px=^,px:nl (px) 
ax=* ,ax:nl  ax  , * ; ' 
tx=* ,tx;nl I tx  , * ; ^ 
gg=*,gg:nl  (gg) 


procedure  takelil:2: 
var .  line;string  (72)  ; 


V - • -  - ^  » - •  • 

kegrn 

reset  (lib2,  *  iiame=lib2.  pascal. a1  *) 

while  not  eof  (lib2)  do 

begin 

readln  (lib2,line)  ; 
vriteln (user, line) ; 
end;  _ 


end;  f*  takelibS*) 
procedure  takelibd; 
var  linetstring  (72)  ; 
begin 

reset  (lib3, '  iiaiBe=lib3.  pascal. a1  *) 

while  not  eof(lib3)  do 

begin 

readln (lib3,line) : 
writeln (user, line)  ; 
end;  _ 


close (lib3) : 
end;  (*  takelind*) 
procedure  takelibh; 
var  line;string  (72)  ; 
begin 

reset (lib4 , *  name=lib4. pascal. a1 ' ) 

while  not  eof  (llb4)  do 

begin 

readln (lib4, line) ; 
writeln (user, line)  ; 
end;  . 


close 


iiiknii 


function  change(var  p:alpha) :alpha ; 
begin 

change ;=p; 

i£(p=*<*f  then  change:  =' lessthan* ; 
■  "  >M  ■’  ■  .  -3  . - -  — 

3=»  <  =  M 


i£(p=*<>*)  then  change:  =  *notegual' ; 
if  (p=»=»)  then  change:=*egual^; 

end; 

function  exist  (p: alpha)  : boolean; 

var  i;integer; 

begin 

6xist:=false : 
for  i:=1  to  t  do 

if  (p=ext  (.i.) )  then  exist:=true; 

end; 

frocedure  createfun (fname: alpha) ; 
ype  11=record 

a:string(9)  ; 
nralpha ; 
o:string  (22) ; 
end; 

12=string  (7  0) ; 

13=record 

b:string (4) ; 
n: alpha; 
o;string  ( 13)  ; 
end: 

var  f1:l^;f2;12;f3;13;f4:12; 
tegin 

if  (exist  (fname) )  then  return; 

£1 .a:=* function  *; 
f 1. n:=fname; 

f1.o:='  (a, i: integer)  ; boolean;' ; 

f2:=*begin':  ^ 

f3.b:='^ 

f3. n:=f name: 

f  3.  o;= ' ;  =match  (a,  i)  ;*; 

f4:=»end:»; 

with  f1  ho 


begin 

writeln(lib4^a;  9,n:strlen  (str  (n) )  ,o;  22)  ; 

end: 

vrireln (lib4  ,f2) ; 
vith  £3  do 


begin 

writeln{lib4,b:4,n:strlen  (str  (n) )  ,o:  13)  ; 

end: 

wrireln (lib4 ,£4)  ; 
t:=succ  (t)  : 
ext  (.t ,)  :  =  fnaie; 

end; 


procedure  altbod; (fname: alpha; abe, abu: integer) ; 
type 

line=string  f7  2)  ; 
lin€l=record 
a: string (9)  ; 
b: alpha; 
c: string  (22)  ; 
end ; 

line4=record 
a;string  (4)  ; 
b; integer; 
c;char ; 
d: alpha ; 
e:string(2)  ; 
f :alpha; 
g: alpha; 
end: 

var  11 :line 1;12,13,15,16 :line;14;line4 ;i :integer ; 
begin 

if  (exist  (inane) )  then  return; 

t:  =succ  (t)  ; 

ext  (. t.)  :=£nane: 

11. a:=* function 
11 .b:=f name; 

11.c:=*  (a, i: integer) :bcolean;*; 

12:=*begin* ; 

13 :=*  case  i  of ' ; 
write  (lib4,l  l.a)  ; 

write  (lib4 . 1 1.b:strlen  (str  (1 1.  b) ) )  ; 

writeln(li^4,11.c) ; 

writeln  ^ib4 ,12)  ;  writeln  (lib4,13)  ; 

with  14  do 

begin 

21  «  =  f  f  • 
a*  ~  f 

^  •  s  I  •  f  • 

d;  =  f name ; 

p*  =  •  •  =  <  • 

g:  =  '  ‘(a,i)  ; 

end; 

for  i;=abe  to  abn  do 
begin 

with  14  do 
begin 

b  j  —  i  * 

f  :=a  It  (.i.)  .  nane; 
t;=succ  (t)  : 
ext  (-t.) :=r ; 

write  ( lit4,a:4  ,  b;nl(b)  ,c;1,  d;  strlen  (str  (d)  ) ) 
writeln  (lib4,e ; 2, f:  strlen  (str  (f)  )  ,  g:  o)  ; 

end ; 
end ; 

15:  =  *  end  ;  ’  jwriteln  (lib4,15)  ; 

16 : =*end ; * : writeln(lib4,16) ; 
end;  (*altbody*) 
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of  Irec 


froc€dure  createrule (fname :alpha; var  a 
jpe 

liii€=strinq  (7  0)  ; 
lr6c=recora 
two: iateger ; 
del: char ; 
end; 

lab=record 

deerstring (6) ; 
numtarrayt.  1..20.) 
delrchar; 
end; 

line1=record 

arstring  (9) ; 
n:alpha ; 
orstring  (22)  ; 
end ; 

line3=record 

arstring  (34)  ; 
fcrinteger : 
erstring  ( 8) ; 
drinteger  r 
erstring  ( 6)  ; 
end; 

lin€6=record 

no:  string  (4)  ; 
nuial :  intecer ; 
cond:  alpha ; 
name: alpha : 
commalrchar; 
num2  r  intecer ; 
comma2:  char; 
archar ; 

otherrstrirg  (13) 
num3rinteger; 
delrchar; 

end; 

line9=record 

f rstring (23)  ; 
num  rinteger ; 
ctherrstring  (16) 

end ; 

linel 0=record 

other: alpha; 
num:  integer ; 
f :  string  (2)  ; 

end ; 

line12=record 

b:  string  (4)  ; 
n: integer : 
o:  string  ( i6)  ; 


b  rinteger) 


end ; 


liii6l4=record 

a:  string  (11)  ; 
b:  alpha; 
c;  string  (7)  ; 

end ; 

line17=record 

a: string  (7)  ; 
b: alpha; 
c: string  (7)  ; 

end: 

var  1-14,17. 113. 115, 116-118:line;  13:line3; 
12 : lab : 16  - 18 : line6 ; l9 : line9 ; 

110,11 h line  10:112: line12; 

11:line1;  114:line14;  117:line17; 
i,aa,li: integer; 
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NL 


pxoccdare  line15; 
var  i:integer; 
begin 

11.a;  =  ’functioii  *; 

11 .  n:=f name; 

11.o;  =  *  (a. i: integer)  ;boolean;*; 

12. dec;=*lab€l  •; 
for  i:=1  to  2C  do 
begin 

12.  num  (.  i.) .  two:=0 ; 

(.i.J.r 


,del:=* ; 


12. nun 

end: 

12.Sel:=»;»; 
uitli  13  do 
begin 

a:=*  if  resatisfy  then  begin  break ( 
b:=0; 

c:=*) ;  goto  • ; 
d:=0 ; 

e:=* ;  end; * ; 

end ; 

14:='begin* ; 

end; 

Erocedure  line67; 
egin 

36.no:=*  •; 

16. nun 1 :=0; 

16. cond; =* : if  (accept  (*; 

16.name:=*  *; 

16.comma1:=' , ' ; 

16.num2: =0; 

16.conma2:=’ 

16!other:=*) )  then  goto  *; 

16.num3:=0; 

16.del;=';' ; 

17 : =*  goto  99 ; * ; 

end; 

Erocedure  lineSII; 
egin 

18.no;=« 


18.num1:=0; 

18.cond:=» :if  (accept (*; 
18.name:='  »: 


18. comma  1 :=  *  ,  ’ ; 
I8.num2:=0; 

18.comma2:=* , * ; 

18.a;=*a** 

18lother :=’) )  then  goto  * 
18.num3:=0 : 

18. del:=*;*: 

19. f :=* 
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if  not  (possible  (♦ ; 


19.num: =0; 

19.other:=*) )  then  goto  99;*; 
110«other:=^  Break  (*; 

110. nani:  =0; 

111.other:=*  goto  •; 

111. nu]n:=0 ; 

111.f:=*  ;*; 

end; 

Erocedare  llne1218; 
egin 

112.b;  =  »  •  ; 

112-n:=0; 

112.o:  =  *:if  okay  fa)  then*; 
113:=*  tegin^ : 

im.a:  =  * 


then’ 


end; 


114. a:=*  »; 

114.!}:  =f  name; 

114.c;  =  * :=tru€;  * ; 

115:=*  return;*; 

116:=*  end;*; 

117. a:=*  SS:*; 

117.b:=fnaine: 

117.c:  =  * :=fal£e* ; 
118;=*end; * ; 


procedure  writelS; 
var  i«nc:iiiteger ; 
begin 

with  11  do 
begin 

vriteln {Iib4,a: 9,n:strlen (str (n) } ,oz22)  ; 

end: 

vit&  12  do 
begin 

write  (lib4, dec)  : 
for  i;=1  to  li  io 
begin 

nc;=clinuiii{.i. ).tvo)  : 

write  (Iib4,  nun  (.i.)  .  two:nc,  num  (.  i. )  .del:1}  ; 

end: 

wrireln  (lib4)  ; 

end: 

wrireln (lib4 ,14) ; 
with  13  do 
begin 

b:  =12.  num  (.li-2. ) .  two; 
d:=b; 

nc:=nl  (b)  ; 

writeln (iib4,a:34,b:nc,c:a,d:nc,e:6) ; 

end; 

end; 

procedure  write67; 
var  nc:integer; 
begin 

with  16  do 
begin 

nc;=nl{num1) ; 

write{Iib4. no:4,num1 :nc,cond: 12) ; 
nc:=nlinum2)  ; 

writej;lib4.  naiBe:strlen  (str  (name) )  , comma  1 : 1  ,num2  :nc) 
nc j=nl (num3)  ; 

writeln (lib4,comma2: 1,a: 1, other: 13,num3:nc,del:  1)  ; 


ncj=ni(numa  ; 
writeln (lib4,coma 
end: 

writeln (lib4  ,17) ; 

end ; 

procedure  writes  11; 
var  nc:integer; 
begin 

with  18  do 
begin 

nc:=nl(num1)  ; 
write (Iib4, no;4,n 


write (Iib4-no;4,num1 :nc,cond; 12)  ; 
nc:=nl  (num2)  ; 

write  (Iib4.  name:  strlen  (str  (name) )  , comma  1 : 1 , num2  :nc) 
nc:=nl (num3) ; 

writeln (lib4 ,comma2 : 1,a: 1, other: 13,num3:  nc,del: 1)  ; 


write ( 
nc:=nl 
writel 
end ; 


with  19  do 
begin 

nc:  =  nl  (nuo)  ; 

vriteln (lib4,f: 23, nuin:nc, other :  16) ; 

end: 

«it&  110  do 
begin 

nc;=nl  (nun)  : 

writeln  (libA, other :  13,num:nc,£:  2) ; 

end: 

witi  111  do 
begin 

nc:=nl  (nuo)  : 

writeln  (lib4, other :  13,nuiD:nc,£:  1)  ; 

end; 

end; 


procedure  vrite1218; 
var  DC : integer; 
begin 

vith  112  do 
begin 

nc;=nl (nl ; 

uriteln  (lib4,b:4,n:nc,o:  16)  ; 

end; 

uriteln (lib4  ,113) ; 
with  114  do 
tegin 

vriteln  (lib4,a:  1 1, btstrlen  (str  (b) ) , c:  7) 

end; 

uriteln  flxb4, 115)  ; 
uritelnjlib4,116) ; 
uith  117  do 
tegin 

writeln  (lib4,a:7,b:strlen  {str  (b) )  ,c:  7)  ; 

end; 

writeln  (lib4, 118)  ; 

end ; 
begin 

if  (exist  (£ name) )  then  return; 
t:=succ(t);  ext  (.  t.)  :-f name; 
linelS; 

li:=b-a+i; 

for  i:=1  to  li  do 

begin 

aa:  =  succ  (aa)  ; 

12.num  (.1.)  .two:=aa; 

end; 

li:=succ(li)  ; 


12.num(.Ii.)  .two:=99| 

12.num j.li.) .del:  =  * ;  * ; 

writelS; 

line67: 

16. num1 :=a; 

16. name:  ^change  (proc  (.  a.)  .  name)  ; 
16.num2:=a; 

16.  num3:  =succ  (a)  ; 
urite67 ; 

for  i:=succ(a)  to  b  do 
begin 

lineal  1; 
la.numl :=i: 

18 .  name:=cnange  (proc  (. i. )  .name)  ; 
18.  num2:  =i; 

18.num3;=succ(i) ; 


writes 11 ; 

end; 

liiie1218; 

112. n:=sacc (t) ; 
vrite121 8; 

end;  (♦  createrule  ♦) 
tegan 

rewrite  (lib4  ,  *name=lib4.pciscal.  a1  * 
rewrite  (user,  *naiiie=  user,  pascal,  a  1 ' 
t:  =  1;  ext(.t.):  =  *  *; 

for  i:=1  to  ax  do 
begin 

pan:=alt  (.i.)  .name; 


pi :=alt  (.i.) .t 
p2:=alt  i.i.  . t 
p3  :=alt  (.i.  .  y 
if (p 1=0)  then 
if (p1>0)  then 

end; 

for  i:=1  to  px  do 
begin 

if (proc  (.i.) . y 
if  proc  |.i.) .  F 
if  (proc  (.i.)  .n 
pan:=proc  (.i. ) 
pi :  =Froc  (.i.)  . 
p2:  =  proc  (.i.)  . 
if (pi>0)  then 

end; 

for  i:=1  to  px  do 
begin 


. nnegin; 

.  bend; 

. yesno ; 

n  createfun  (pan)  ; 
n  createrule  (pan,  pi, p2) 


.i.) . yesno=1)  then  continue; 
.i.) .  ptype=6)  then  continue; 
.i.l.name= ’query*)  then  qq:=i; 
c(.i.  ).nam€; 

(.i.)  .abegin; 

(.i.)  .aend; 

then  altbody  (pan,p1,p2)  ; 


then  continue; 
then  continue; 


pi  :  =  proc  (.i.)  .bbegin; 
p2:=proc  (.i.i. bend; 
if{(p1=0)  ana  7proc(.i.). 


if{(p1=0)  and  fproc(.i 
then  createfun  (pan) 

end; 

for  i;  =  1  to  px  do 
begin 

if  (proc  (.i.)  .yesno=1) 
if (proc  (.i.) .ptype=6) 
pan:=proc  (.i.) .  name; 
pi  :=proc  (.i.)  .bbegin; 
p2;=croc  (.i.)  .bend; 


relativity=0) ) 


p2;=Froc  (.i.j  .t 
if (pi>0)  then 

end; 

taXelibO  ; 
takelib2 ; 
taXelibI  ; 
taXelibh ; 
taXelib3  : 

end;  (♦create  pascal*) 


then  continue; 
then  continue; 


.  bbe 
.ben 


then  createrule (pan, p1,p2) 


'  i  I  str  (date) 


) 


tegin 

cos  {*  exec  e»,r6t); 
datetioe (date, time)  ; 
message (*  oiniprolog  npgs 

1  istr  (time^  ,01 ; 
message (*  ’ , 0)  ; 
checktokens; 
message (*  * , 0)  ; 
if  sot jtokenerxor)  then 
lexxcalanalyzer 
else 
begin 

message 

( *coopilation  terminated  due  to  user  errors.  *,0}  ; 
message 

(^virtual  compilation  time:in  microseconds' , -clock) ; 
retcode  (- 1)  ; 
halt; 

end; 

if  not  (lexerror)  then 
begin 

createarravs; 

if  (defined  and  not  (recursive)  and  query)  then 
begin 


message 

('no  compiler  detected  errors.,  source  lines' , -line)  ; 
creat epascal; 

end 

else 

begin 

messace 

('ccmpilation  terminated  due  to  user  errors. ',0); 
retcode  (-1)  ; 
halt; 

end 


end 

else 

begin 

message 

(•compilation  terminated  due  to  user  errors. *,0); 
retcode  (- 1) ; 
halt; 

end; 


message 

('virtual  compilation  time;in  microseconds' , -clock) ; 
retcode (0)  ; 

end. 


fi  pi  »  m  » 
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APPENDIX  C 
OBJECT  PBOGBAH 


progiajB  user  (input,  output)  ; 
const 

peBpty= false; 
aempty=false ; 
teiBpty=  false ; 
px=48; 
ax=44: 
tx=235 ; 
gq=45; 

type 

procrec= record 

rulenum : integer ; 
rel num : integer ; 
namecalpha; 

ptype; integer:  {♦  4.. 6 
relativity: integer ; 
poin  ter  1 : integer ; 

gointer2  :integer ; 

begin: integer; 
bena:inteqer ; 
abegin: integer; 
aena:integer ; 
yesno;  integer; 
callee: integer ; 
as:integ€r; 
ae: integer ; 
now: integer; 

end ; 

parrec=record 

rulenum : integer ; 
relnum: integer; 
name:alpha; 
ptype: integer; 
locality  :integer ; 
pointer: integer; 
ntype: in teger ; 
nbind: integer ; 
omatch:bccIean; 
who:in  teger; 


*) 


(♦  7..  10.  ♦) 


var 


end; 

tf  acef  ile-  terir,  proof ile,  para mfile, 
listing.altfile, user, par rile: text; 
trace2: text ; 

proc:array  (.  1.,  px.)  of  p 


proc:array(.  1.,px 
par:array7. 1..tx 
alt:array ( . 1 ..ax 
cpt  :array  (.  1 .  .tx 
sign:char ; cx ,ret 


of  procrec; 

I  of  parrec; 
of  procrec; 
of  alpha; 

num: integer;resatisfy; boolean  ; 
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procedure  cms(coQst  parastr: string;  var  rc: integer) 
external; 

procedure  urxteit; 
var  i: integer; 
begin 

for  i;=1  to  tx  do 


begin 

write 

write 

write 

write 

write 

write 

write 

write 

write 

write 

write 

write 


(tracefile^i: 2, *. • 
'tracef ile,par  {.i. 

.1. 
.  i. 

.*  4— 

i-ii 

i. 
i. 


tracefile, par ( 
tracefile,'  *• 
tracefile,par 
tracefile, par 
tracefile^par 
tracef ile,par 
tracefile, par 
tracef ile, par 
tracefile, par 
Wl.  X  I tracefile, par 
writeln  (tracefile)  ; 

end; 

writeln  (tracefile)  ; 
for  i:=l  to  px  do 
begin 

write (trace2,i: 2, * . 
write  trace2,proc 
write  tr ace2, proc (. 
write  trace2,’  »:4) 
write'  trace2,proc ' 
write  trace2,proc 
write  trace2,proc 
write  trace2,proc 
write  trace2,proc 
write (trace2, proc 


.rulenuoiU) 
.relnum:4)  ; 


.  name:  12)  ; 
•Ptype;4)  ; 

. locality:4) 
.  pointer :  4) ; 
•  ntype; 
.nbindi 
.nmatch: 

.who :  4 ) 


er :  hi  ; 
:4|  ; 

h:5/  ; 


write (trac€2, proc 
write  (trace2,proc 
write (trace2,proc 
write (trace2, proc 
write (trace2,proc 
write  c trace2, proc 
write  ftrace2,proc 
write (trace2,proc 
writeln  (traced)  ; 

end: 

writeln  (trac€2)  ; 


« 

1. 

.i. 

.i. 

.i. 

.i. 

.i. 

.1. 

•  i. 

•  i. 

•  i. 
.i. 
.i. 
.i. 
.i. 


.rulenam:!)  ; 

. relnum: 3)  ; 

. name: 1 2)  ; 

. pointer  1: 3)  ; 
.pointer2:3)  ; 
.  bbegin: 3) ; 

, bend:  3)  : 

•  abegin :3)  ; 

.  aend:  3)  ; 

. yesno:2l; 

. callee: 3) ; 
.as:3)  ; 

.ae:3)  ; 

.  now:  3)  ; 


end ; 


procedure  message  (const  msg:string;valint; integer) 

var  termrtext; 

begin 

termout 1  term) ; 
if  ivalint>0)  then 
begin 

writeln(term,valint;3,str  (* .  ')  1  (msg)  ; 

end 

else  if  (valint=0)  then 
begin 

vriteln (term, msg)  ; 
lnum:=succ  (Inum)  ; 
writeln (listing,  msg)  ; 

end 

else 

begin 

writeln  (term, msg,  (-valint))  ; 
end; 

close (term) ; 

end ; 


Srocedure  putfiles; 

atel  a1(a2; 
var  i,f:xnteger; 

.ppzchar; 

begin 

if  tempt y  then  goto  a1 ; 
reset (paramfilet : 
for  i;=1  to  tx  ao 
begin 

read fparaifile, f ) ; 
read  par anfile,pp) : 
read  paramfile,  par  (.i. 
read  I paramfile, par  .1. 
read  parasf ile, par i .i. 
read  paraafile,  par  |.i. 
read  paranfile,  par  ..  i. 
read  paraafile, par  .1. 
read  par amfile< par {.i. 
readln (paramf ile,par (. 
par  (.i.) .rmatch : =ralse 

end ; 

a1:  if  pempty  then  goto  a2; 
reset  (proof  ile)  : 
for  i:  =  1  to  px  do 
begin 

read  (procfile,f)  ; 
read  proof ile,pp) ; 
read  proof ile, proc  (.i. 
read  proofile,proo  .i. 
read  I  proof ile,proc  .i. 
read  proof ile,proo i .i. 
read  proof ile,proo  .i« 
read  proofile,proc  .1. 
read  proof ile, proo  . 1. 
read  proofile/proc  .i. 
read  proof ile,proc  .1. 
read  prcofile^proo  .i. 
read  proofile/proc  .i« 
read  'proof  ile,  proc  ^  .i. 
read  proof ile,proo  .i. 
read  proofile/proc i.i. 
read  (proof ile, proo  (.i. 
readln  (proof ile , proo (. 

end ; 

a2:  if  aempty  then  return: 
reset (altfile) ; 
for  i:=1  to  ax  do 
begin 

read  (altfile,f)  ; 
read  I  alt file, pp)  ; 
read  a  It  file,  alt  (.  i.)  . 
read  altfile,alt  ’.i.  . 
read  altfile, alt  '.i.  . 
read  a  It  file,  alt  (.  i.  • 
read  I  alt  file,  alt  I- i.  , 
read  'altfile,alt  .i.'  . 
read  altfile, alt  ,i,  . 
read  altfile, alt  I  .i.'  . 
read /altfile,alt  I  .  i-  . 
read  (a  It  file,  alt  j.  i.J  . 
readln  (a  It  file,  alt  (.1. 

end; 

end;  (♦putfiles  ♦) 


.rulenum)  ; 
.relnum)  ; 

•  name)  ; 

I  .  pointer)  ; 


.rulenum) ; 
.relnum)  ; 
.name)  ; 


.  rela  tx  vity) 
.  pointer  1)  ; 

.  pointer2)  ; 
.nbegin) ; 

.  bend)  ; 
.abegxn)  ; 

.  aend)  ; 

. yesno) ; 

. oallee) ; 

.  .  as)  ; 

)  .ae)  ; 

X.  ) . now)  ; 


rulenum)  ; 
relnum)  ; 
name)  ; 

ElKlUity,  ; 

pointer!)  ; 

Eointer2)  ; 

begin)  ; 
bend).  ; 
abegin)  ; 

)  . aend)  ; 


procedure  resetit (a:integer) ; 
Degin 

if((a-1)=gg)  then  return; 


proc 

proc 

proc 


a. ) .  as  ;=proc  (.  a. 

,  a. J .ae:=proc (.a. 
a. ) .nov;=groc  (.a'.) 

then 


) .abegin; 

) .aena; 
abegin; 
return ; 


if (proc (.a. ) .as<>0) 
proc  [. a. )  . as ;=1 ; 
proc  a.  .  ae  ;=1  j 
proc  (-a.i  .now:=1 ; 
end;  (♦resetit  *) 

function  possible (a:integer) zboolean; 
var  a1 ,a2, a3 zboolean ; 
begin 


end 


a1 z=false; 
a2  z=false; 
a3  z  =false; 
a1  z=  (proc (.a .) . now<  =  pr oc  {.a 
if  (proc  (.a. )  .  ptype=6f  " 
if  (resatisfy)  then  a3 
possible :=a1  or  a2  or 
;  (*possible*) 


).ae) 

then  a2z  = ' 


=true ; 
a3; 


true 
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tegin 

a£in:=0 ; 
asta:=0; 

pbeg;=proc  (-  a.J  .  pointer!  ; 
pena:=proc  . a.) .  pointer2; 
call:=proc  (. a.)  .callee; 
if  (cail=0)  then 
begin 

if  not(aenipty)  then 
begin 

asta  :=alt  (.  i. )  .pointer!; 
af in  :=alt (.i.) .pointer2; 

end 

end 

else 

begin 

asta :=proc (. call.)  .pointer!; 
afin:=proc{.call.)  .pointer2; 

end; 

if  (pend=pbeg)  then 
lim! :=! 
else 

lim! :=pend-pbeg+ ! ; 
if (afin=asta)  then 
lim2:=! 
else 

lim2 :=afin-asta+ ! : 
if  { (pbeg=0)  and  {pend=0) )  then 
Iim ! : =0 : 

if  ( iasta=0)  and  (afin=0) )  then 
Iim2: =0 ; 

if  (lim !<>lim2)  then 
begin 

match:  =f  alse; 
return; 

end ; 

if((liml  =  0)  and  (lim2=0))  then 
begin 

match ;=true; 
return; 

end: 

binaproc (asta ,pbeg, pend)  ; 
tindproc(pbeg,asta,afin)  ; 
matchit  (asta,  pbeg, pend)  ; 
matchit (pbeg, asta.af in)  ; 
if  checkit  then 
begin 

match :=tr  ue; 

rulebind; 

return; 

end ; 

match ;=false ; 
end;  (♦  match  ♦) 


L2 


function  checkit ttoolean; 

var  i,j:integer;  bool:bool€an; 

begin 

bool:=tr  ue; 

for  i; =pbeg  to  pend  do 
begin 

if  (i=0)  then  continue; 

bool :=  (bool  and  par  (.1.)  .nmatch)  ; 

end: 

if  bool  then 
begin 

checkit: =true; 
return; 

end 

else  checkit  :=false ; 
for  i:=pbeg  to  pend  do 
begin 

if  (i=0)  then  continue; 

if  (par  (.  i.) .  ptypeOll  then  contin 


ar  (.  i.) .  ptypeOIJ  then  continue; 
ar  (. i. ) . who<>i)  then  continue; 
.i.) .Etype:=0; 

•i.) .nbind;=0: 

.i.) . nmatch :=false; 


if  (par  (.  i. ) .  who<>i)  th 
par  (.i.) .Etype:=0; 
par  .i.'  .nbind;=0: 
par  (.i.) . nmatch :=false 

end ; 

for  i:=asta  tc  afin  do 
begin 

if (i=0)  then  continue; 


if  (par'(.i.)  .ptypeOI)  'then  continue; 
if  (par  (.  i.  j .  who<>i)  then  continue; 
par  (.i. ) .Etype;=0; 


par  (.1.1  .1 
par  (.i.)  .1 

end ; 

end;  (♦  checkit  ♦) 


.nbind;=0: 
.nmatch : alse ; 


fuBctioB  match  fa ,i:integer) : boolean; 

var  pb eg, pend, 11 ml, lim2, asxa,af in, call : integer ; 

procedure  matchit (asta, pbeg,pend:integer) ; 

var  i, j:integer; 

begin 

i;=pred (asta) ; 

for  i:=pbeg  tc  pend  do 

begin 

if  (i=0)  then  continue; 
j;=succ  (1) ; 

if  (i=0)  then  continue; 
parl.i.) .rmatch 

{  (£ar  f-i.)  .ntype=par  (.  j.) .  ntype)  and 
(par  {-i. )  .nnind=parl.  j.)  .nbind))  ; 

end; 

end;  (♦matchit*) 

procedure  bind prcc (asta, pbeg, pendcinteger) ; 

var  i,j,k: integer ; 

begin 

j;=pred (astaj ; 

for  i:=pbeg  tc  pend  do 

begin 

if  (i=0)  then  continue; 
j;  =succ  ( i) ; 

if  (j=0)  then  continue; 
if  (par  (.  i.) ,  ntype=0)  then 
begin 


1. 

i 


par 
par 

?ar 
or 
begin 
if 
if 
if 


) 


ntype :=par 

_ nbind :=par 

•i. ) . who:=i; 
b:=pbeg  to  pend 


ntype; 
nbind ; 


do 


end 


end; 

end; 

end: 

(♦bindproc*) 


then 

par 

par 

par 


k=0)  then  continue; 

par (.k. } .ntype>0)  then  continue 

par  (.  k. )  .nameOpar  ( .i.)  .name) 

“  continue; 


.  k. 
.k. 
.k. 


ntype;=par 
. nbind: = par 
.who:=par  (. 


(.  i.)  .  ntype; 
(.i.)  .nbind; 
i. )  . who; 
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function  okay (a : integer) : boolean; 

var  pb,pe, i: xnteger; 

begin 

if  tenpty  then  okay:=true; 
if  tempt 7  then  return; 
pb;=proc  gg.).bbegin; 
pe:=proc  .  gg-i  .bend; 
pb:=proc  . pc.). pointer  1; 

fe;=proc  (.pe.)  .pointer2; 

or  i;=pb  to  pe  do 
begin 

if  (i=0)  then  continue: 
if  (par  (.  i.) .  ntype=0)  then 
begin 

okay  ;=false; 
return; 

end; 

end; 

ckay:=true; 
end;  j[*okay*) 

function  f irst (a ;integer) : integer 
begin 

first:  =proc  (.a.)  .now ; 

end; 

function  last (a: integer)  :integer; 
begin 

Iast:  =  proc  (.a.)  .ae; 
end;  (♦last*) 


function  equal  (a, Jc: integer) : 
var  re,le,f,l, pl,p2.p3,p4:in 
^  .pa,pb,pc,pa:alpha;op1,op 
b€gxn 

if  not  (analyze  (a, re«le) ) 

begin 

equal: =false; return; 

end; 

f:=proc(.a-)  .pointerl; 


then 


l:=proc(.a.)  .FOinter2; 
if(ire=i)  and  (le=1))  then 
begin 

p1;=par  {.  f.)  .nbind; 

Fa:=par  {.  cl.)  .naae; 
p2;=par  (.1.)  .nbind; 
pb:=par  (.  c2.)  .  name; 

if  ( (par  (.  f .)  .ntype=2)  and  (par(.l.} 
then  equal  :=  (doreal  (pa)  =doreal  (pb)  J 
els  e 

if  (  (par  (.f.)  .ntype=3)  and  (par(.l.) 
then  equal :=(pa=pb) 
else  equal:=false: 
return; end; 

if((re=1)  and  (le=3) )  then 
begin 

p1 ;=par  (.f.) .nbind ; 
pa:=par  .cl.). name; 
p2:  =  par  .1-2. ).  nbind; 


.l.).ntype=2) ) 


,ntype=3) ) 


pa:=par  .cl.). name; 
p2:  =  par  .1-2. ).  nbind; 
pb;=par  .r2.).name; 
p3:=par  .1.). nbind; 
pc:  =  par  (.^3.) .  name; 
op1;=par  (-1-1.)  -ptype; 
egual;=doreal  (paj 

=e7al  (doreal  (pb)  ,op1 , doreal  (pc) ) 
return;end; 

if(ire=3)  and  (le=1) )  then 
begin 

pi ;  =par  (.  f. ) .  nbind  ; 


pa:=pari  .cl.)  .name; 
p2:=par  .1+2.) .nbind; 
pb :  =  par  { .  p2 . )  .  na  me ; 
op1;=par  (.f+1-)^,ptype 
p3  :  =  par  (.1.)  - 


-1  tPtype; 
nbind ; 


pc:  =par  ( .p3. 1  . name ; 

€qual:=e7al  (doreal  (pa) ,  opl ,  doreal  (pb) ) 
=  dcreal  (pc)  ; 
return ;end; 

if((re=3)  and  (le=3) )  then 
begin 

pi  :=par  (.f.)  -nbind; 
pa:=par  .cl.). name; 
p2:=par  .1+2.) .nbind; 
pb :  =  par  (.p2.) . name; 
op1:=par  (-f+l.)  -Ptlge; 
p3 ;=par  (.1-2.) .  nbina; 


p4 ;=par  |.l.) .nbind; 
pd:  =  par  (. f4. ) .  name; 
op2:=par  (.1-1.)  .ptype; 

equal:=e7al  (doreal  (pa)  ,op1,  doreal  (pb) )  = 

e7al (doreal (pc) ,op2, doreal (pd) )  ; 
return ; end; 

(♦  equal  *) 


.c3.)  .name; 
.1. )  . nbind : 


end; 


w  ^  m  ^  ~  ^ - - ^  — 

begin 

if  not  {analyze  (a, re, le))  then 
begin 

greater: =false;retarn; 

end; 

f:=proc(.a.)  .pointer! ; 
l:=proci.a.) .pointer2; 
if({re=T)  and  {le=1))  then 
begin 

if  ( (par  (.f.) .  ntype<>2) 

(par  (.l.).ntype<>2)) 
then 
begin 

greater :=false ; 
return; 

end; 

p1:=par  (.  f .)  .nbind; 


boolean; 

ger; 

integer; 


pa:=par  .pi.),  name; 
p2;=par  .1.)  .nbind; 
pb:=par  (.  p2.)  .name; 
qreater: =  (doreal (pa 


greater:  =  (doreal (pa) >doreal (pb) ) ; 
return; end; 

if(J[re=1)  and  (le=3) )  then 
begin 

pi :  =  par  ( .  f. ) .  nbind ; 
pa:=pan  .pi.)  .name; 
p2:=par  .1-2. ). nbind; 
pb:*par  .p2.).naffle; 
p3:=par  .1.) .nbind; 
pc: spar  (.p3.) .name; 
op  1:  spar  (.1-1.)  .ptype; 
greater:s 

doreal  (pa) >eval (doreal (pb) ,op1, doreal (pc) )  ; 
return ;ena; 

if((re=3)  and  Ue=1))  then 
begin 

pi  :spar  (.f.)  .nbind; 
pa:spari  .p1.) .name; 
p2:spar  -i+2.) .nbind; 


p2:spar  ( .i+2.) .nbind; 
pb:spar (. p2. ) .name; 
op1:=par  (.f+1 .),  ptype; 
p3  :=par  (.1.) .  nbind ; 
pc : spar ( . p3 . ) .name; 


pc:spar(.p3.)  .name; 
greater : = 

eval  (doreal  (pa)  ,op1,  doreal  (pb) )  >doreal  (pc)  ; 
return ; end; 

if((re=3)  and  (le=3) )  then 
begin 

pi  ;  =  par  (.f.)  .nbind; 


pa: spar  .pi.)  .name; 
p2:spar  .1+2.) .nbind; 


pb : spar  (.p2 
op1:=par  (.f 
?3 :  =  par  ( .1- 


p2.).name; 
1-2. ) . nbina; 


pc: spar  (. p3. ). name ; 
p4:spar|.l.)  .nbind; 


return ;end; 
end;  (*  greater  ♦) 
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tcgin 

if  not  (analY2e(a,re,le)}  then 
begin 

lessequal:=f alse;return: 

... 


if(jre=T}  and  (le=1))  then 
begin 

if  f  (par  (.f.)  .ntyp€<>21  or 
(par  (.  1.)  .ntype<>2) )  then 
begin 

less equal :=false; 
return; 

end; 

p1:=par(.f.)  .nbind; 

pa:  =par  .  p1.  ] .  naae; 

p2:=par  .1.)  .nbind; 

pb;  =par  (.  p2. )  .name: 

lessequal:  =  (aoreal (pa) <=doreal  (pb) ) ; 

return;end; 

if(j(re=1)  and  (le=3) )  then 
begin 

pi :  =par  (.  f. ) .  nbind ; 
pa:=par c .pi.) .name; 
p2;=par  .1-2. ). nbind; 
pb:=par  .p2. ) .name ; 
p3:=par  .1.) .nbind; 
pc:=par  (.p3.) .name; 
op1:=par  (.1-1.)  .ptype; 
lessequal:= 

doreal  (pai<=e val  (doreal  ( pb)  ,op  1 , doreal  (pc) ) 
return  ;en3: 

if({re=3)  and  (le=1))  then 
begin 

pi  ;  =  par  (.f.)  .nbind; 
pa:=par  (.pi.) .name; 
p2 :=par  { .1+2.) .nbind; 


pb :  =  par  ( .  p2 . ) .  na me ; 
op1:=par  (.f+l.)  -ptype; 
p3  :  =par  ( .  1. ) .  nnind ; 


fc:=par(.p3.)  .name; 
essequal := 

eval  (doreal  (pa)  , op  1, doreal  (pb) )  <=doreal  (pc) 
return;ei]d; 

if((re=3)  and  (le=3) )  then 
begin 

pi  :  =  par  (.f.)  .nbind; 
pa:  =  par  .pi.). name; 
p2:=par  .i+2.) .nbind; 
pb:  =  par  (.p2.)  .name; 
op1:=par  (.f+1.)  •Ptype; 
p3:=par  (.1-2.) .nbind; 


opi : =pa 
p3 :=par 
pc:  =par 


( .  1-2. ) .  nbint 
{.p3. ) . name; 

{ .1.) .nbind ; 


p4;=par  (.1.) .nbind ; 
pd:=par  (.p4.) .name; 
op2;=par  (.1-1.)  . Ptype: 

lessequal:=eval  (doreal  (pa)  ropi  .doreal  (pb) )  < 
eval(doreal (pc) »op2, doreal (pd) ) ; 


return ; end: 
end;  (♦  lessequal  *) 


function  greatequal(a,k:in 
var  re,le,£, 1, pi ,t2.p3,p4: integer; 

pa , pb, pc , pa ; alpna ; op  1 , op2 ; integer ; 
begin 

if  not  {analy2e  (a,re,le) }  then 
begin 

greategual: =false; return ; 

end ; 


ual(a,k:integer) : boolean; 
,c2.p3,p 4: integer; 


then 


begin 


;  (par  («f. }  .  ntype<>2)  or 
Xpar  (.1.)  .ntype<>2) )  then 


begin 

greategual:=false; return ; 

end; 

p1:=par  (.  f.)  .nbind; 
pa:  =par  .p1.).nane; 
p2:=par  .1.)  .nbind; 
pb:  =par  (.  p2. ) .  name: 

greategual:=  (doreal  (pa)  >=doreal  (pb) )  ; 
return; end; 

if({re=1)  and  (l€=3))  then 
begin 

pi  :  =  par  (.  f. ) .  nbind ; 
pa:  =  par  {.pi .)  .name; 
p2:  =  parKl-2.)  .nbind; 


p2:=par  .1-2. ). nbind; 
pb:=par  .p2.).naae; 
p3:=par  .1.)  .nbind; 
pc;=par  (.p3.) .name; 
op1:=par  (.1-1.)  .ptype; 

Hreategual:= 

oreal(pai>=eval  (doreal (pb)  ,op1,  doreal  (pc) )  ; 
return ;ena; 

if((re=3)  and  (le=1))  then 
begin 

pi  ;=par  (.f.)  .nbind; 
pa:=par  .pi.). name; 
p2:=par  .x>2.)  .nbind; 
pb:=par  (.p2.)  .name; 
op1;=par  {.f+1.r, ptype; 
p3:=par  (.1. ) . nbind; 
pc:=par  (.p3.)  .name; 
greategual;= 

eval  (doreal  (pa)  , op  1, doreal  (pb) )  >=doreal  (pc)  ; 
return; 


end ; 

if((re=3)  and  (le=3))  then 
begin 

pi  :  =  par  (.f.)  .nbind; 
pa:=par  .pi.) .name; 
p2 :=par  .I+2.) . nbind; 
pb:  =  par  (.p2.) .name; 
op1:=par  (,f+1.)  .ptype; 
p3 :=par  (.1-2. ) . nbind; 
pc;=par  (-p3.)  .name; 
p4;=par  .1.) .nbind; 
pd:=par  .p4.).name; 


op2;=par  (.1-1.)  .ptype; 

greatequal:=eval (doreal (pa)  ,op1, doreal (pb) 
eval (doreal (pcf,op2, doreal (pdf)  ; 


return ;end; 
end;  (*  greategual  *) 


begiQ 

if  not (analyze (a, re, le) )  then 
begxn 

notegual:=false;return; 

end ; 


if  (lre=  t)  ah  d* {le= 1 ) )  then 
tegxn 

if  ({par  (,f.).ntype<>2)  or 
(par  (.1.)  .ntype<>2) )  then 
beg  in 

notegual:=false; return; 

end; 

pl:=par  (.  f.)  .nbind; 


pa:  =par  (.  p1.]  .name; 
p2:=par  (.1.)  .nbind; 


pb:=par i. p2. ) . name; 

notequal:  =  (doreal  (pa)  Odoreal  (pb) )  ; 

return; end; 

if(j[re=1)  and  (le=3) )  then 
begin 


pi  :  =  par 
pa: =par 
p2:=par 


>  f. ) .  nbind ; 
.cl.)  .name; 
.1-2.) .  ’  • 


) . nbind; 


pb;=par  .r2. ) .name ; 
p3:=par  '.1.)  .nbind; 


pc : =par  ( . p3 . ) . name ; 
op1:=par  (.1-1.)  .ptype; 
notegual := 

doreal  (pa)  Oeval  (doreal  (pb)  ,op1 , doreal  (pc) ) 
return ;ena: 

if(lre=3)  and  Ue=1))  then 
begin 

pi  :  =  par  (.f.)  .nbind; 
pa:=par  .cl.). name; 
p2:=par  '.l+2.)  .nbind; 
pb:  =  par  (.p2-) .  name; 
op1:=par  (.f+ 1 .). ptype; 
p3 : =par  ( .  1. )  .  nbind ; 
pc:  =pari .p3 .)  .name; 
notequal  :  = 

eval  (doreal  (pa)  ,op1, doreal  (pb) )  Odoreal  (pc) 
return; 

end ; 

if((re=3)  and  (le=3) )  then 
begin 

pi  :  =  par  (.f.)  .nbind; 
pa:=par  .cl.) .name; 
p2:=par  . r+2. ). nbind; 
pb:  =  par ( .p2. ) . name  ; 
op1:=par  (.f+1.)  .ptype; 
p5:  =  par  f .1-2. ) . nbind; 


op2:  =par  (.1-1 .)  .ptype; 

notegual  :=eval  (doreal  (pa)  ,op  1 ,  doreal  (pb) )  <. 

eval  Uor eal  (pc)  ,op2 ;  doreal  (pd) )  ; 


return ; 

,  end; 

end;  (♦  notegual  ♦) 


function  lessthan  (a,k:integer} : boolean; 
var  re,le,f ,l,pl,t2,p3,p4:integer; 

. pa,pb,pc,pa: alpna;op1,op2:xnte9er ; 
begin 

if  not (analyze (a « re, le)}  then 
begin 

lessthan :=false;  retain; 

end ; 

f;=proc(.a.)  .pointerl; 
l;=Frocx.a-) .pointer2; 
if(jre=i)  and  (le=1))  then 
begin 

if  ( (par  (.  f.).ntype<>2)  or  (par  (.1.)  .ntype<>2) ) 
then  begin 

less t ban :=false;retarn; 

end; 

p1  ;=par  (-  f .)  .nbind; 
pa:=par  (.p1.}  .name; 
p2:  =par  (.  1.)  .nbind; 


p2:  =par  f.  1.)  .nbind; 

pb;=par  (.  p2.)  .name; 

lessthan:  =  (doreal  (pa)  <doreal  (pb) )  ; 

retarn;end; 

if((re=1)  and  (le=3) )  then 
begin 

n1  :  =  par  (.f.)  .nbind; 
pa;=par  .pi.) .name; 
p2:=par  .1-2.) . nbind; 
pb:=par  .p2.).naDe: 
p3:=par  |.l.)  .nbind; 
pc : =par  ( . p3. ) . name ; 
op1:=par  (.1-1.)  .ptype; 
lessthan  := 

doreal (pal<€val (doreal(pb) ,op1 , doreal (pc) ) ; 
return ;ena; 

if((re=3)  and  ^e=1))  then 
begin 

pi  ;  =  par  (.f.)  .nbind; 
pa; =par  .pi .) .name ; 
p2 :=par  ,.I+2.)  .nbind; 


pc:=pa 

lessth 


=par  (.p 
sthan  := 


(.1.)  .n 
(.E3.). 


name; 


eval  (doreal(pa)  , op  1, doreal  (pb) )  <doreal(pc)  ; 
return ;end; 

if((re=3)  and  (le=3) )  then 
begin 

pi  :=par  (.f.)  .nbind; 


pa:=par (.pi. ) .name ; 
p2;=par {.i+2.)  .nbind; 


pc:  =  par  (.p3.)  .name; 
p4;=par  (.1.)  .nbind; 
pd:=par  (.p4. )  .name; 
op2; =par  (.1-1 .)  . ptj 


op^; =par  (.i-i .) . pt jpe; 
lessthan :=eval (doreal (pa) ,op1 ,  doreal 


eval (doreal 
return;eEd; 
end;  (♦  lessthan*) 


(pa)  , 

(pc) , 


op2, doreal 


j  f 


function  is (a. k: integer)  iboolean; 
var  ,i,  j,pb,p6;integer; 
begin 

f:=proc(.a-) .pointerl; 
l:=succU)  :  ,  ,  .  . 


l;=succ 
par  f.f . 


par  (.f . 
par  (.f., 
as:=true 
if  (succ 
if  (succ 


.ntype; 
. nbind; 


mil] 


then 

then 


return; 

return; 


Jr  . 

pb:=succ  a): 

pb;=proc  .pb.)  .pointerl; 
pe;=proc  .3.). bend; 
|e:=proc  (.  pe.) .  pointer2; 
for  i:=pb  to  ce  do 
begin 


pe  do 

then  continue; 


if  {i=0)  then  continue; 
if  (par  (.  i.)  .  naneOpar  (.  f .) .  name) 
then  continue; 

:  ^  m  _ _ a  *  \  a-  ^  ^ 


then  continue; 


end; 

end;  i*is*) 

function  eval  (op1:real;op;integer;op2:real)  :real; 
begin 

case  op  of 
7; eval: =op1+cp2; 

8:eval:=op1-op2; 

9:eval:=op1*cp2; 

10; eval: =op1/cp2; 
end ; 

end; 

function  doreal (p:alpha)  :real; 
var 

num:real ; 
begin 

readstr  (str  (p)  ,num)  ; 
doreal: ^num; 
end; 


function  analyze 

(a:integer;  var  re,le: integer) : boolean; 
var  f .1.1,iQ:integ€r ; 
tf: boolean: 
nsetzset  or  1..4; 
begin 

^  ^  _  .  •  _  •  __  _  •  t  * 


f:=proc(-a«)  .pointer 
l:=|:roc  (.a.)  .pointer2; 
nser:=  {.  . )  ; 
for  j:=f  to  1  do 
begin 

if  (i=0)  then  continue; 
nset:=nset+  (.par  (.  j.)  .locality.)  ; 

end; 

for  j;  =  1  to  (l-f+1)  do 
begin 

if  { j  in  nset)  then  continue; 
leave; 

end; 

le:=0; 

analyze :=true; 
for  3:=£  to  1  do 
begin 

if  (j=0)  then  continue; 

if  par  (.  j.)  .locality<ni)  then  le;  = 

if  (par  (.  J.) .  locality>iD)  then  leav 


par  (.  i.)  .locality<ni)  then  le;=succ(lG) 
par  (.  J.) .  locality>iD)  then  leave; 

end; 

re:=0; 

for  j:=f  to  1  do 

if  (par  (.  1.) . local! ty>m)  then  re:=succ(re) 
assert  7(le=i)  or  (le=3))  ; 
assert  f(re=1)  or  (re=3)); 
if(j[le=i)  and  (re=i))  tnen 
begin 

tf;=  ( (par  (.f. )  .ntypeOpar  (.1.)  .ntype)  or 
(par  I  .f .)  .ntype=0t  or 
(par  (.1.)  .ntype=0))  ; 

end; 

if((le=1)  and  (re=3) )  then 
begin 

tf ;  =  ( (par  (. f .) .  ntype<>2)  or 
par  (.1.1.  ntype<>2)  or 
(par  (.1-2. )  .nType<>2) )  ; 


local!  ty>i 


then  le;=succ(le) 
then  leave; 


;=i  to  1  ao 
(par  (.  1.) .  locality>m; 
'1(le=1)  or  (le=3  ); 
I  |re=  or  jre=3:  j ; 
=  1)  and  (re=1))  then 


U  j 

if((le=3)  and  (re=l))  then 
begin 

tf  ;  =  ( (par  (.1.) .  ntype<>2) 
(par  l.f .  1.  ntype<>2) 
(par(.f+2.)  .ntype<> 

end; 

if(];ie=3)  and  (re=3) )  then 
begin 

^  _ _  »  • _ _  t  e 


or 
or 
2))  ; 


tf  :=  ( (par 
(par 


f.).ntype<>2)  or 
f+2.) .ntype<>2)  or 
1-2. )  .ntype<>2)  or 


end; 

if  tf  then 

analyze;=false; 
end;  (♦  analyze  ♦) 


par  (.1.)  .  ntype<>2) )  ; 


irocedure  break  (a:iixteger}  ; 
al:el  a1: 

var  1, jgk,  call«asta,afin,pbeg,pend: integer; 
begin 

if  tempty  then  return; 
if  (proc f.a.) .Ftype=4)  then  return; 
if  (proc  (.a.)  .Etype=6)  then 
begxn 

pbeg;=proc  (.a.) .  pointer  1 ; 
pend:=prcc  (.a.)  .pointer2; 
goto  ai; 

end; 

if  (proc  (.a. )  .callee>0)  then 
hegrn 

call;=proc  (.a.l  .callee; 
asta;=proc  .call.) . point erl; 
af in:=prcc (.call.) .pointer2; 

end 

else 

begin 

call:=prcc  (.a.),  now; 
call :=pred  call)  ; 
asta:=proc  .call. ). pointer! ; 
af in :=proc (.call.) .pointer2; 

end; 

Fbeg:=proc  (.a.)  .pointer! ; 

2end;=proc  (.  a.) .  pointer2; 
for  i:=asta  tc  afin  do 
begin 

if  (i=0)  then  continue: 

if  (par  (. i.)  .whoOi)  then  continue; 

par  (. i. ) . rmatch : =f  alse ; 

if  (par  (.i.)  .ptype=!)  then 

begin 

par(.i.).ntype:=0; 

(.1.) . nbind;=0; 


end; 


end; 


:i:=proc  (.g.) 
T;=proc  (.  j.) 


. bend: 

. joinxer2; 

**  — _ a  a* 


T:=proc (. j.) .pointer^; 
for  i:=pbeg  to  pend  do 
begin 

if  (i=0)  then  continue: 

if  (par  (.  i.)  .whoOi)  then  continue; 

par  (.1.) . rmatch :=f alse: 

if  (par  (. i.)  .ptype=!)  then 

begin 

par  (.i.)  .ntype:  =  0; 

far (.i.)  . nbind:=0; 

or  k:=pbeg  to  j  do 
begin 

if  (k=0)  then  continue: 


end; 

end; 

end: 

end;  (♦break*) 


if  I  par  f .  k.  )  . whoOk)  then  continue; 
if  'par  ,.k.  .ptypeO!)  then  continu' 
if  (par  (.k. ) .  nameOpar  (.i. ) .  name) 
then  continue; 
par  (•k.) . n match :=f alse ; 
par  . k. ) .ntype: =0; 
par  (.  k. )  .nbind:  =  0; 


function  f indit (;:alpha) :bcolean; 

var  i: integer; 

begin 

findit :=false; 
for  i:  =  1  to  cx  do 
begin 

if  {p=cpt  (.i.) )  then 
begin 

findit:=trae; 

return; 

end; 

end; 

end; 

procedure  print; 

var  i, k^kj , pbeg, pend /pb,pe: integer ; 
begin 

if  tempty  then  return; 


pe:=proc  {.  gg .)  .oena; 
pbeg;=procT. pb. ) . pointer 1 ; 
pend;=proc (. pe.) . pointer2 ; 
if  (pena=0)  then 
begin 

kj:=0: 
repeat 

kj:=succ(kj)  ; 


kg  :=succ  (kg)  ; 

pend:=proc (.pe-kg. ) .pointer2; 
until  (pend>0)  ; 


end; 

for  i:=pbeg  tc  pend  do 
begin 


if  (i=0)  then  continue; 

if  (par  (.  i.)  •  ptypeOI)  then  continue; 

k;  =par  j.  i.) .  nbind; 

if  {not  (f  indit  (par  (.i.)  .  name) ) )  then 

begin 


end ; 


end; 


end; 


message  (str  (par  (.i>)  .name)  i  i 
str(*  =  ’)  I  I  str  (par  (.k.)  .name)  ,0) 
cx:  =  succ  (cx)  ; 
cpt  ( .cx.)  ;=par  (.i.)  .  name ; 


function  accept (function  name (a, j; integer) 
; boolean;a, j;integer) :boolean; 
var  i:integer; 
begin 

for  i:=first  (a)  to  last  (a)  do 
begin 

if  (f  irst  (al>last  (a) )  then  leave; 

if (name  (a, i) )  then 

begin 

proc  (.a.)  .nowr^succ  (i)  ; 

accept ;=true; 

return; 

end; 

end; 

accept: =false; 
resetit  (a)  ; 
end;  (♦  accept  *) 


fuDCtion  wp  tueii  (a«i:xnteger} 
begin  ” 

¥p_fuel1 :=Batch (a,i) ; 

end ; 

function  wp_fuel2  (a,i:integer) 
begin 

vp  £ael2:=fflatch (a,i) ; 
end ;  “ 

functxcn  wp  fuel3  (a,x:integer) 
begin  ” 

wp_£uel3  ;= match  (a,i)  ; 

end : 

function  wp  £uel4  (a,i :integer} 
begin  ” 

wp  £uel4  :=match  (a,i)  ; 
end;  " 

function  wp_fuel5  (a,i:integer) 
begin 

wp  £uel5:=fflatch (a,i) ; 
end;  “ 

function  wp  £ael6  (a,i:integer) 
begin  “ 

wp  fuel6:  =  Batch (a/i)  ; 
end ;  “ 

function  wp  fuel7  (a,i:integer) 
begin  ” 

wp  fuel? :  =  match  (a,i)  ; 
end;  ” 

function  wp_fuel8 (a,i:integer) 
begin 

wp  fuels :-match (a,i} ; 
end;  ~ 

function  wp  fuel9 (a,i:integer) 
begin  ” 

wp_fuel9;=match  {a,i)  ; 

end; 


: boolean* 


: boolean 


: boolean 


: boolean* 


boolean , 


:  boolean 


: boolean 


: boolean 


: boolean 


function  wp  amnolO (a,i:int€ger) 
begin  ~ 

wp  amao10:  =  match(a,i) ; 
end ;  ^ 

function  vp  amao11 (a,x:integer) 
begin  ” 

vp  ammo1 1:=iiatch  (a,i)  : 
end;  “  „  .  . 

function  vp_aDmo  12(a,x: j.nteger) 
begin 

vp  aamo12:=match  (a,i) : 
end;  " 

function  vp_ammo13 (a,i:integer) 
begxn 

vp  amoo1 3:=match (a, i) ; 
end ;  “ 

function  vp_ammo1iJ  (a,  i;  integer) 
begin 

vp  aiBiQo14:=match  (a,i}  ; 
end;  " 

function  vp_ammo  15 (a,i:integer) 
begin 

vp  ammo1 5:  =match  (a,  i)  ; 
end;  " 

function  vp_ammo  16 (a, i: integer) 
begin 

vp  annol  6:  =match  (a,  i)  : 
end ;  " 

function  vp_anmo17(a,x:int€ger) 
begin 

vp  ammo17:=match (a, i) ; 
end;  " 

function  vp  ammo18(a,x;xnteger) 
begin  ” 

vp  ammol  3:=match  (a,  X)  ; 
end;  " 

function  vp  ammo  19 (a,i:int€ger) 
begin  “ 

vp  ammo  1 9:  =match  {a, i)  ; 
end;  "" 

function  wp_ammo20 {a,i:integer) 
begin 

vp  ammo20:  =match  (a,  i)  ; 
end;  " 


: boolean. 


: boolean; 


: boolean; 


: boolean. 


: boolean; 


: boolean; 


:  boolean. 


:  boolean 


:  boolean; 


:  boolean, 


:  boolean; 


function  vp  ammoll (a, i: integer) 
tegin  “ 

Hp_animo21:-Datch  (a,i)  ; 

end; 

functron  vp  ammo22 (a,i:integer) 
begin  “ 

wp_aamo22:=match  (a,i)  ; 

end; 

function  wp_amino23  (a, i; integer) 
begin 

vp  ammo23:=aatch  (a,i)  : 
end;  “ 

function  vp  ammo24 (a,i:integer) 
begin  ” 

vp  ammo24:=match  (a,i)  ; 

end; 

function  vp_ammo25 (a,i:integer) 
begin 

vp  aDmo25:  =match  (a,i)  ; 
end;  ” 

function  vp_amDo26  (a, i: integer) 
begin 

vp  ainao26:  =match {a,i)  ; 
end ;  ” 

function  vp_aiQmo2‘7  (a, i: integer) 
begin 

vp_aamo27;  =  match  (a, i)  ; 

end ; 

function  vp_ammo28 (a,i;integer) 
begin 

vp  ammo28:=match  (a,  i)  ; 
end;  “ 

function  vp  ammo29 (a,i;integer) 
begin  “ 

vp  amnio29:=Diatch(a,i)  ; 
end ;  ” 

function  vp  amoo3C  (a,  i:  integer) 
begin  ” 

vp  aiamo3  0:-match  (a^i)  ; 
end;  ” 

function  vp  ammo31  (a,i:integer) 
begin  ” 

vp_amnio3 1:=niatch  {a,i)  ; 

end; 


: boolean; 


: boolean; 


: boolean; 


:  boolean; 


boolean; 


:  boolean; 


:  boolean; 


:  boolean; 


:  boolean; 


boolean; 


:  boolean; 


fujicticn  wp  nun32  (a,i:integer) 
begin  ~ 

vp_num32  :  =  match  (a,i)  ; 

end; 

function  vp  num33  (a,i  :integer} 
begin  “ 

wp  nufli33  :=matcb  (a,i)  ; 
end;  ~ 

function  vp  num34  (a,i:integer) 
begin  ~ 

wp  nuffl34 :=match (a^i)  ; 
end ;  ~ 

function  vp  num35  (a,i:integer) 
begin  ~ 

wp_nuiB35:  =  inatch  (a,i)  ; 

end; 

function  wp_num36  (a,i:integer) 
begin 

vp  num36  :  =  match  (a,  i)  : 
end;  ” 

function  wp_num37  (a,i:integer) 
begin 

wp_num37  :=match  {a,i)  ; 

end; 

function  wp  num38  (a,i:integer) 
begin  “ 

vp_num38:=match  (a,i)  ; 

end; 

function  wp_nua3S  (a,i:integer) 
begin 

wp  nain39;=n>atch  (a,i)  ; 
end;  ■" 

function  wp  naoi4  0  (a,i:integer) 
begin  ” 

wp  num40  :=inatch  {a,i)  ; 
end;  ” 

function  wp  nain4 1  (a,i:integer) 
begin  ” 

wp  nuin41  :=:oatch  (a,i)  ; 
end;  ” 

function  wp_nuin4  2  (a,  irinteger) 
begin 

wp  num42:=Datch <a,i) ; 
end ;  ~ 

function  wp_num4 3  (a,i; integer) 
begin 

wp  nuffl43 :  =  Datch  (a, i)  ; 
end ;  “ 

function  wp_nua44  {a,i:integer) 
begin 

vp  nua44  :  =  aatch  (a,i)  ; 
end;  “ 


: boolean ; 


:  boolean; 


boolean; 


:  boolean ; 


:  boolean ; 


:  boolean ; 


:  boolean ; 


:  boolean ; 


:  boolean ; 


:  boolean; 


; boolean; 


;  boolean ; 


: boolean ; 


function  wp  fuel  (a,i:integer)  :boolean 
begin  “ 

case  i  of 

1;wp  fuel:=wF  fuell  (a,i)  ; 

2:¥P  f uel:  =wf  fuel2  'a^i  ; 

3: wp  fuel:=wp  fuel3  a,i  ; 
iJ;wp”fuel:=wF”fuel4  a^i  ; 

5; wp~fuel:=wp”fuel5  a/i  ; 

6:wp“f uel:=wF  fuel6  a^i  ; 

7:wp  f uel: =WF  fuel?  a,i  ; 

8:wp  fuel:=wp“ fuels  a,i  ; 

9; wF”f  uel:  =wF”fuel9  (a,i)  ; 
end; 

end; 


fuBcticn  vp  ammo  (a,i:integer)  :boolean 
begin  ” 

case  i  of 

10:wp_animo;=iip_ainmo10  {a,ij  ; 

11:vp  ammo:=vp  ammoll  a,i  ; 

12:wp  ammo:=iif  aiamo12  a,i'  ; 

13;wp  animo:  =  iif:”anmo13  a,i  ; 

14:vp  ammo:=vp  ammo14  a,i  ; 

15;Hp'"ammo:=ep“ammo15  a,i  ; 

16:wp  aiiinio:  =  \ip_ammo16  a,i  ; 
17;wp~aioiQO;  =  \ip_ammol7  fa,i  ; 
18;wp_amino:  =  iip_anmo18  I  a,i  ; 

19;wp  amDio:  =  iip  ainmo19ia,i  ; 
20:wp“ainiBo:=iip”ammo20  a,i  ; 

21 :wp  ammo:=wp_ammo21 I a,i  ; 
22:wp“ammo;=iip_ainino22  a/i  ; 
23:wp_ammo:  =  iip_amiao23  ’a,i  ; 
24:wp_ammo:  =  Hp_ammo24  I  a,i|  ; 
25:wp_ammo;=%p  aiomo25  a,i  ; 
26;wp_aamo:  =  «p  ammo26  a,i'  ; 

27:wp  ammo:=wp“ammo27  a,i  ; 

28  :wp“ajniiio:  =  wp_afflmo28  a,i  ; 

29:wp  aamo:=%p_amao29 ' a,i  ; 

30 : wp“amao:  =iip_aaao30  I  a,i  ; 

31 : wp_aaao:= wp  aamo31(a,i); 
end;  ~ 

end ; 
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function  wp  nun  (a«i:integer)  :boolean ; 
begin  ” 

case  i  of 

32:wp  nam:=wp  nuia32(a,i); 
33:wp”num:=wp“num33  a,i  ; 

34:¥p  num:=vp  nun34ia,i  ; 

35:  wp  nun;  =wp2^'i®35  I  a,i'  ; 

36:wp  num:=wp  num36  a,i  ; 

37:  wp”num:  =wp”nun37  I  a,i  ; 
38:wp_num:=wp2®um38  ’a,i  ; 

39 :wp_num:=wp_num39  i  a,  i'  ; 

40:wp  nun:=v|:  nuin40  a«i'  ; 
41:wp“num:=wp  num41  a,i'  ; 

42:wp  nun:=wp2num42  ,a,i'  ; 
43:wp"num:=wp_num43  I  a,i'  ; 

44  :wp_num:  =  vp  num44(a,i); 
end; 

end ; 
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function  query (a .irinteger) : boolean; 

label  46,a7,4B,4§,99; 

begin 

if  resatisfy  then  begin  break  (48);  goto  48;  end; 
46:if  (accept  (wp_fuei, 46, a) )  then  goto  47; 
goto  99; 

47;if  (accept  (vp  ammo,  47, a))  then  goto  48; 
if  not  (possible  (46) )  then  goto  §9; 
break  (46)  ; 
goto  46; 

48;if  (accept  (vp  num,48,a))  then  goto  49; 
if  not (possible (47) )  tnen  goto  99; 
break  (47)  ; 
goto  47 ; 

49:if  okay (a)  then 
begin 

query  :=true; 
return; 

end; 

99  :query  :=false 

end; 

begin 

lnuin:  =  0; 
putfiles : 

message(*  execution  begins.  0)  ; 

re  sa  tisf  y;=f  alse; 

•  sign:=*;*; 

vhile  (sign=';’)  do 
begin 

if  query  (qg,1)  then 
begin 

messageC  yes’-O); 
print;  termin (term)  ; 
readln  (term -sign)  ;  close(term); 
if(sign=*;M  then 
resatisf y:=true 
else  resatisf y ;=f alse ; 
if  (lEum>50)  then 
begin 

lrum;=0 ; 

vriteln (listing, *  T : 1) ; 

end; 

if  resatisfy  then 

cms('clrscrn*  ,ret)  ; 
if  resatisfy  then 

message (♦  resatisfying  goal....'.0) 
else  message  (*  execution  ends.. . . * ,0) ; 
continue; 

end; 

message  (str  ( *  no*)  ,0)  ; 
message^'  execution  ends. . . .  ’ ,  0)  ; 
halt ; 

end; 

end.  (♦  main  ♦) 
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APPEHDII  n 
SAflPLE  PBOGBia  4 


wp  fuel 
iip”f  uel 
HF_f uel 
wp_f uel 
wp_f uel 
wp_fuel 
wp_f uel 
wp_fuel 
wp_f uel 
wp_ainmo 
wp  anmo 
wp“animo 
wp_ammo 
wp_aniino 
wp  ammo 
wp^ammo 
wp_ammo 
wp_aamo 
wp_ammo 
wp  ammo 


wp  ammo  (helo 
"  ^helo 


wp^ammo 


,f  1,500,5000) . 
,£2,800,4000'  . 
,£3,400,3000'  . 
,£2,250,1000  . 
,£4,600,5500  . 
,f2;900,6000'  . 
,£5,500,3500  . 
,f3;350,2000  . 
£6*450,3800)  . 
1 , ai: 


wp  ammo  {atgm 
wp  ammo 
wp  ammo 
wp  ammo  _ . 
wp  ammo  atgm 
wp  ammo  £ac 
wp  ammo  £ac 
wp”ammo  tk 
wp“ammo  (tk 
wp  num  ■  ■  ’ 
wp~iium 
wp_num 
wp_num  . 
wp_num  (helo 
wp  num (tk 
wp~num 
wp  num 
wp~num 
wp  num 
wp~num 
wp  num 
wp“num (tk 
guer j:-wp  ammo ( 
wp  num ( w 


ftclASsJwTYPE.LX,LY,WATYPE) 
CLASS, TJTYPE, LX, LY,WNUM)  . 
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wc  fuel (tk  ,1 
«f_£uel  fac  ,1 
wp  fuel  atgm, 1 , 
wp  fuel(heio,1, 
«p_fu€l  tk  ,2, 
wp_fuel  fac  , 
wp_f  uel  I  atgm, 
wp_f  uel  I  helo, 
wp_f uel  atgm, 
wp_ammo  tk 
wp  ammo  tk 
wp”ammo  tk 
iip_ammo  i  tk 
wp_ammo  fac 
wp  ammo  fac  , 
wp~ammo  atgm^ 
wp_ammo  helo, 
wp_ammo  helo, 
wp_ammo  tk 
wp_ammo  tk 
wp  ammo  I  helo, 
wp  ammo  helo, 
wp  ammo  i  atgm, 
wp“ammo  fac  . 
wp  ammo  tk 
wp  ammo  tk 
wp~ammo  atgm, 3, 
wp“ammo ' fac  , 1 , 
wp  ammo  fac 
wp“ammo  tk 
wp_ammo  (tk 

ur  niiml-Hr 


wp  num 
wp“num 
wp_num 
wp_num 
wp_num 
wp  Qum 
wp  num 


,500, 
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4oo; 
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r350, 

,450 


wp~num  (atgm 
wD~num  (fac 


wp~num 
wp_num 
wp  num 
wp  num 
wp~num 


;tk 
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fac 
'atgm 
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‘tk 
helo 
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4000 

3000 

1000, 

5500i 
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3500, 

2000J 

3800) 
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tk 

'atgm 
fac 
tk 


wp~num  (tk  ,  1 . ! 
query:-wp  fuel 
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WACAP<=; 
wp_ammo i 


BTYPE  ,  WFTYPE  ,  WFC  AP  ,  T?ACAP) 
,WFCAP>=800. 
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:,WTYPE,LX,LY,MATYPE)  . 
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wf_fuel  (tk 
wp_f uel I fac 
up  fuel  atgm 
wp~f uel  helo 
wp_fuel i tk 
wp_f uel  fac 
wp_fuel  atgm 
wp_f uel  helo 
wp_f uel  atgm 
wp_ammo  tk 
wp_ammo i tk 
vp_ammo  tk 
wp_ammo  tk 
wp_ammo  fac 
wp_aamo i fac 
wp_ammo  atgm 
wp_ammo  helo 
wp_an!mo  helo 
wp_ammo  tk 
wp  ammotk 
up  ammo  helo 
wp  ammo  helo 
wp  ammo  'atgm 
wp"ammo  fac 
wp  ammo  tk 
wp  ammo  (tk 
wp  ammo  atgm 
wp  ammo i fac 
wp  ammo  fac 
wp  ammo  tk 
wp~ammo  (tk 
wp  cum  (tk  f 
wp  num  tk  , 
wp~Dum  fac  , 
wp_num  atgm, 
wp_num  helo, 
wp  num  tk  , 
wp“num I helo , 
wp  num  atgm, 
wp  num I fac  , 
wp  num  tk  , 
wp"num  atgm , 
wp_num  fac  , 
wp  num  (tk  , 


query :-w 


wp  fuel 
wfCAP<= 
wp_ammo 


,f 1,500,5000) . 

, f2, 800, 4000'  . 

,f3,400;3000  . 

,f2, 250, 1000  . 

,f4, 600^5500  I. 

,f2, 900, 6000  . 

,f5;500,3500'  . 

'f3'350'2000  . 

,f6-450,3800  . 

. 1.5,81: . 

0  I  §  ^  g  • 

,2:3;a1  . 

,2,3,a2  . 

,1 ,4,a6'  . 

,1,4;a3'  . 

#1»3,a4;  . 

,2,2,a4'  , 

,2,2,a3  . 

»3,3;ai:  . 

,3,3,a6  . 

,3;3,a3  . 

,3,3;a5  . 

,3;4,a6  . 

;2,3;a1  . 

,5,2, a3  . 

JlJ3;a4;  . 

,5,.^,a6  . 

»5,2,a3  . 

;5,3,a1  . 

2,3,50  . 

1.4,  5  , 

y\3,2Q  . 

2,2,  8  . 

3,3,28  . 

3, 3^12  . 

3'2;22  . 

3.4,  8  . 

2,3,42  . 

5'3ll8  . 

5,2,  a;  . 

5,3-48'  . 

(WCIASS.HTIPE-HFTYPE, WFCAP,WACAP)  , 
800,WFCAP>=456, 
(WClASS,WTYPE,tX,LI,WATIPE)  . 
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WTYPE 
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3 
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s 

a6 

»KUN 
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GOAL.. .. 

12 

Y€S 

WTYPE 

s 

2 
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f3 

WFCAP 

s 
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LY 
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3 
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fuel  (tk 
fuel  fac 
fuel  I atgm 
fuel  helo 
fuel  (tk 
fuel  fac 
fuel  (atgm 
fuel  I helo 
fuel  I atgm 
ammo i tk 
ammo  tk 
ammo i tk 
ammo  tk 
ammo  fac 
ammo  fac 
ammo  'atgm 
ammo  (helo 
ammo  helo 
ammo  tk 
ammo  tk 
ammo  helo 
ammo i helo 
ammo  atgm 
ammo  fac 
ammo  (tk 
ammo  tk 
ammo i atgm 
ammo  fac 
ammo  fac 
ammo  tk 
ammo  (tk 
Dum(tk  , 
uum  tk  , 
cum  I fac  , 
uum  atgm, 
num  helo, 
num I tk  , 
num  helo , 
num  atgm , 
num I fac  , 
num  |tk  , 
num  (atgm, 
num I fac  , 
num  (tk  , 
ry:-wp  fu 


,1,f 1,500,5000)  . 
,1,f 2,800,4000  . 
,l,f3, 400, 3000  . 
,1,f2, 250, 1000  . 
, 2, f 4,600,5500  . 
,2, f 2,900,6000  . 
,2, f5, 500, 3500'  . 
,2jf 3, 350^2000  . 
,3,f6-450,3800 1 . 
,1,1,3,a1j. 
,1,i;3U2'  . 
;i;2;3lai  . 
,1,2,3,a2  . 
,1,1,4;a6  . 
,i;i,4;a3'  . 

,1,1, 2^4  . 
,1,2,2;a4,  . 
,1,2,2,a3'  . 
,2^3'3;a1  . 

,2,3,3,a6'  . 
;2,3;3;a3  . 
,2,3,3;a5'  . 
;2,3;4;a6  . 
,2,2»3;a1) . 

,3, 5, 3^3). 
,3;5;3;a4  . 
,i;5;2,a6  . 

,1,5,2,ai:  . 
'i;5'3,a3  . 

^,5,^0} 

1,2,3,50  . 

I#!#**,  5,  . 

1,  1,3;20'  . 

1,2,2,  8  . 
2,3,3,28  . 
2,3,3,12  . 
2,3,3,22  . 

2,3,H,  8  . 
2,2,3,42  . 

3'5;  3,^8:  . 

1,5,2,  8'  . 
ll5;3;48  . 


LU  I  m  I  f  W J  • 

:-wp  fuel (helo, WTYPE,WFTy PE, WFCAP.WACAP) 
wp“ammo(h€lo,HTYPE,lX,Ly,WATypE)  , 
wp“num  (helc,HTYPE,LX,tY,WN0Il)  . 
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18 
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0 

91 
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19 

19 
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20 
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